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Commodore 16 , 116 , plus/4 Speicherbelegung (Systemadressen) 


Hex. Adr. 


$0000 
$0001 
$0002 
$0003-0004 
$0005-0006 
$0007 
$0008 
$0009 
$000A 
$000B 


$000C 
$000D 
$000E 
$000F 
50010 
$0011 
$0012 
50013 
$0014-0015 
$0016 
0017-0018 
$0019-0021 
0022-0023 
$0024-0025 
$0026 
50027 
50028 
$0029 
$002A 
$002B-002C 
$002D-002E 
$002F-0030 
$0031-0032 
$0033-0034 
$0035-0036 
$0037-0038 
$0039-003A 
$0038-003C 
$003D-003E 
$003F-0040 
$0041-0042 
0043-0044 
$0045-0046 
$0047-0048 
$0049-004A 
$004B-004c 
$004D 
$004E-004F 
$0050-0051 


Dez. 


a 
jo) = 


-ovDVOoSsunlwmwm— Oo 


u 


Adr. 


Label 


PDIR 
PORT 
SRCHTK 
ZPVECI 
ZPVEC2 
CHARAC 
ENDCHR 
TRMPOS 
VERCK 
COUNT 


DIMFLG 
VALTYP 
INTFLG 
DORES 

SUBFLG 
INPFLG 
TANSGN 
CHANNL 
LINNUM 
TEMPPT 
LASTPT 
TEMPST 
INDEX1 
INDEX2 
RESHO 

RESMOH 


RESMO . 


RESLO 


TXTTAB 
VARTAB 
ARYTAB 
STREND 
FRETOP 
FRESPC 
MEMSIZ 
CURLIN 
TXTPTR 
FNDPNT 
DATLIN 
DATPTR 
INPPTR 
VARNAM 
VARPNT 
FORPNT 
OPPTR 

OPMASK 
DEFPNT 
DSCPNT 


Beschreibung 


Datenrichtungsreg. des 7501 

Ein-/ Ausgabe-Port des 7501 

Flag für Schleifen 

Neue Startadresse (Renumber ) 
Schrittweite (Renumber) 

Gesuchtes Zeichen 

Flag für Anführungszeichen-Modus 
TAB - Spaltenzähler 

Flag: 0 = Load, 1 = Verify 

Zeiger für Eingabepuffer, 

Anzahl der Elemente 

Flag für Standard-DIM 

Datentyp: $FF=String, $00=Numerisch 
Datentyp: $80=Integer, $00=Fließkomma 
Flag für DATA/LIST 

Flag: Element/FNx-Flag 

Flag: $00=INPUT, $40=GET, $98=READ 
Flag: Vorzeichen des ATN 

Flag: Input-Prompt 


Zeiger auf temporären Stringstapel 
Letzter temporärer Stringvektor 

Stapel für temporäre Strings 

Bereich für Hilfszeiger 1 

Bereich für Hilfszeiger 2 

Bereich für Produkt bei Multiplikation 


Zeiger auf Basic-Anfang 

Zeiger auf Variablen-Anfang 

Zeiger auf Beginn der Arrays 

Zeiger auf Ende der Arrays (+1) 
Zeiger auf Stringspeicher 
Hilfszeiger für Strings 

Zeiger auf Speichergrenze 

Laufende Basiczeilennummer 
Textpointer 

Zeiger auf Basic-Statement für CONT 
Nummer der aktuellen DATA-Zeile 
Adresse des aktuellen DATA-Elementes 
Sprungvektor für INPUT 

Aktueller Variablenname 

Adresse der aktuellen Variablen 
Variablenzeiger für FOR...NEXT 
Zwischenspeicher für Basic-Zeiger 
Akkumulator für Vergleichssymbole 
Arbeitsbereich (Zeiger usw.) 


Commodore 16 , 116 , plus/4 Speicherbelegung (Systemadressen) 


Hex. Adr. 


$0052 
$0053 
$0054-0056 
$0057-0060 
$0061 


$0062-0065 
$0066 


$0067 
$0068 
$0069-006E 
$006F 
$0070 


$0071-0072 
$0073-0074 
$0075 
$0076-0078 
$0079-007B 
$007C-007D 
$007E-008F 
$0090 
$0091 
$0094 


$0095 
$0096 
$0097 
$0098 
$0099 
$009A 
$009B-009C 
$009D-009E 
$009F-00A0O 
$00A1-00A2 
$00A3-00A5 
$00A6 
$00A7 
$00A8 
$00A9 
$00AA 
$00AB 
$O0AC 
$00AD 
$O0AE 
$00AF-00BO 
$00B1 
$00B2-008B3 


Dez. 


82 
83 
84-86 
87-96 
97 


98-101 
102 


103 
104 
105-110 
111 
112 


113-114 
115-116 
117 
118-120 
121-123 
124-125 
126-143 
144 
145 
148 


149 
150 
151 
152 
153 
154 
155-156 
157-158 
159-160 
161-162 
163-165 
166 


Adr. 


Label 


HELPER 
JMPER 

TEMPF1 
FACEXP 


FACHO 
FACSEN 


SGNFLG 
BITS 
ARGEXP 
ARISGN 
FACOV 


FBUFPT 
AUTINC 
MVDFLG 
KEYNUM 
DSDESC 
TOS 
TMPTON 
STATUS 
STKEY 
c3PO 


BSOUR 
RSAV 
LDTND 


TPBYTE 
BSOUR! 
FPVERR 
DCOUNT 
FNLEN 
LA 

SA 

FA 
FNADR 
ERRSUM 
STAL 


Beschreibung 


Arbeitsbereich (Zeiger usw.) 


Sprungvektor für Funktionen 
Bereich für numerische Operationen 
Fließkomma-Akkumulator 1 
(FAC): Exponent 
Fließkomma-Akkumulator 1 
(FAC): Mantisse 
Fließkomma-Akkumulator 1 
(FAC): Vorzeichen 
Zeiger für Polynom-Auswertung 
Fließkomma-Akkumulator 1 Überlauf 
Fließkomma-Akkumulator 2 Exponent usw. 
Vorzeichenvergleich Akku 1 mit Akku 2 
Fließkomma-Akkumulator 1 niederwertige 
Stelle (Rundung) 
Kassettenpuffer Länge/Zeiger 
Automatisches Zeileninkrement 0=AUS 
Grafik-Flag 
Arbeitsbereich 
Darstellung von DS$ 
Basic-Pseudo-Stack-Pointer 
Arbeitsbereich (Sound) 
Statuswort ST 
Flag: Stoptaste / RVS-taste 
Flag: Serieller Bus - Ausgabe 
Zeichenpuffer 
Zeichenspeicher - Serieller Bus 
Zwischenspeicher 
Anzahl der geöffneten Files 
Eingabegerät (Normalwert: 0) 
Ausgabegerät (Normalwert: 3) 
Flag: $80=Direkt- $00=Programm-Modus 
Zeiger für Kassettenpuffer / Scrolling 
Zeiger auf Ende des Programms 
Temporärer Datenspeicher 

n " 


Echtzeit-Uhr 

Register für seriellen Bus 
Register für Kassettenroutine 
Register für seriellen Bus 
Temporärer Farb-Vektor 
Register für Kassettenroutine 
Anzahl der Zeichen im Filenamen 
Aktuelle logische File-Nummer 
Aktuelle Sekundär-Adresse 
Aktuelle Geräte-Nummer 

Zeiger auf Filenamen 


1/0 Startadresse 


Commodore 16 , 116 , plus/4 Speicherbelegung (Systemadressen) 


Hex. Adr. 


$00B4-00B5 
$00B6-0087 
$00B8-00B9 
$00BA-00BB 
$00BC-00BD 
$00BE-O0BF 
$00c0-00C1 
$00C2 
$00C3 
$00C4-00C5 
$00C6 
$00C7 
$00C8-00C9 
$00CA 
$00CB 


$0OCC 
$00CD 
$00CE 
$OOCF 
$00D0-00D7 
$00D8-00E8 
$00E9 
$00EA-OOEB 
$00EC-O0OEE 
$O0EF 
$00FO 
$00F1-00F2 
$00F3 
$00F4 
$00F5 
$00F6 
$00F7 
$00F8 
$00F9 
$00FA 
$OOFB 
$OOFC 
$00FD 
$00FE 
$OOFF 
$0100-01FF 
$0200-0258 
$0259-025C 
$025D-02AC 
$025D 
$025E-026D 
$026E 
$026F 
$0270-0271 


Dez. Adr. 


180-181 
182-183 
184-185 
186-187 
188-189 
190-191 
192-193 
194 
195 
196-197 
198 
199 
200-201 
202 
203 


204 
205 
206 
207 
208-215 
216-232 
233 
234-235 
236-238 
239 
240 
241-242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256-511 
512-600 
601-604 
605-684 
605 
606-621 
622 
623 
624-625 


Label 


MEMUSS 
TAPEBS 


WRBASE 
IMPARM 
FETPTR 
SEDSAL 
RVS 
INDX 
LSXP 
SFDX 
CRSW 
PNT 
PNTR 
QTSW 


SEDTI 
TBLX 

DATAX 
INSRT 


CIRSEG 
USER 


USEKDY 
XSTOP 
CURBNK 
XON 
XOFF 
SEDT2 
LOFBUF 


BUF 


XCNT 

FNBUFR 
DOSFIL 
DOSDS1 
DOSF1A 


Beschreibung 


Basis-Ladeadresse 
Ladeendadresse (Kassette) 


Zeiger auf Zeichen im Kassettenpuffer 


Register für Long-Fetch-Routine 
Register für Scrolling 

RVS-Flag (Bildschirm) 

Zeiger: Ende der Zeile (Input) 
Cursorposition (Input), Reihe/Spalte 
Tastaturabfrage ($40=keine Taste) 
Flag: Eingabe Bildschirm/Tastatur 
Zeiger auf Bildschirmzeile 
Cursorposition in akt. Bildschirmzeile 
Flag: Anführungszeichen-Modus 

($00 = nein) 

Länge der aktuellen Bildschirmzeile 
Zeile, in der sich der Cursor befindet 
Letztes Zeichen (1/0) 

Anzahl der Zeichen (Insert-Modus) 
Reserviert für Sprachsynthesizer 
Reserviert für Anwendungssoftware 
Arbeitsbereich 

Bildschirm-Editor (Farbe) 
Arbeitsbereich (Bildschirm) 

Anzahl der Zeichen im Tastaturpuffer 


Register für Monitor 


Register für Prüfsumme 


Register für X bei Stoptastentest 
Aktuelle Bank-Konfiguration 


Arbeitsregister (Editor) 


Prozessorstack 
Eingabepuffer 
Basic-Puffer 
Basic-/DOS-Arbeitsbereich 
DOS-Schleifenzähler 
Bereich für Filenamen 

1. Filename (Länge) 

DOS (Laufwerk 1) 

1. Filename (Adresse) 


Commodore 16 , 116 , plus/4 Speicherbelegung (Systemspeicher) 


Hex. Adr. 


$0272 

$0273 

$0274-0275 
$0276 

$0277 

$0278 

$0279-027A 
$027B 

$027C 

$027D-02AC 
$02AD-02B0 
$02B1-02B4 
$02B5-02CB 
$02CC-02E3 
$02E4 

$02EB 

$02F0 

$02F1 

$02F2-02F3 
$02F4-02F5 
$0300-0301 
$0302-0303 
$0304-0305 
$0306-0307 
$0308-0309 
$030A-030B 
$030C-030D 
$030E-030F 
$0310-0311 
$0312-0313 
$0314-0315 
$0316-0317 
$0318-0319 
$031A-031B 
$031C-031D 
$031E-031F 
$0320-0321 
$0322-0323 
$0324-0325 
$0326-0327 
$0328-0329 
$032A-032B 
$032C-032D 
$032E-032F 
$0330-0331 
$0332-03F2 
$O3F3-03F4 
$03F5-03F6 
$03F7-0436 
$0437-0454 


Dez. Adr. 


626 

627 
628-629 
630 

631 

632 
633-634 
635 

636 
637-684 
685-688 
689-692 
693-715 
716-739 
740 

747 

752 

753 
754-755 
756-757 
768-769 
770-771 
772-773 
774-775 
776-777 
778-779 
780-781 
782-783 
784-785 
786-787 
788-789 
790-791 
792-793 
794-795 
796-797 
798-799 
800-801 
802-803 
804-805 
806-807 
808-809 
810-811 
812-813 
814-815 
816-817 
818-1010 
1011-1012 
1013-1014 
1015-1078 
1079-1108 


Label 


DOSF2L 
DOSFA 
DOSF2FA 
DOSLA 
DOSFA 
DOSSA 
DODDID 
DIDCHK 
DOSSTR 
DOSSPC 


CHRPAG 
TRCFLG 
VTEMP4 
VTEMP5 
ADRAYI 
ADRAY2 
TERROR 
IMAIN 
ICRNCH 
IQPLOP 
IGONE 
IEVAL 
IESCLK 
IESCPR 
IESCEX 
ITIME 
CINV 
CBINV 
IOPEN 
ICLOSE 
ICHKIN 
ICKOUT 
ICLRCH 
IBASIN 
IBSOUT 
ISTOP 
IGETIN 
ICLALL 
USRCMD 
ILOAD 
ISAVE 
TAPBUF 
WRLEN 
RDCNT 
INPQUE 
ESTAKL 


Beschreibung 


2. Filename (Länge) 
DOS (Laufwerk 2) 

2. Filename (Adresse) 
DOS logische Adresse 
D0OS (Geräteadresse) 
D0OS (Sekundäradresse) 
DOS (Disketten-ID) 


ID-Flag 


D0S (Ausgabepuffer) 
DOS (Arbeitsbereich) 


Grafik-Cursor 


Grafik-Cursor (Register) 
Grafik-Register 

Print-Using, Grafik-Arbeitsbereich 
High-Byte-Adresse des Charakter-ROM 


Trace-Flag 


Anzahl der Grafik-Parameter 
Parameter: Relativ (1), Absolut (0) 
Fließkomma-Vektor 


Integer-Vektor 
Sprungvektor: 
Sprungvektor: 
Sprungvektor: 
Sprungvektor: 
Sprungvektor: 
Sprungvektor: 
Sprungvektor: 
Sprungvektor: 
Sprungvektor: 
Sprungvektor: 
Sprungvektor: 
Sprungvektor: 
Sprungvektor: 
Sprungvektor: 
Sprungvektor: 
Sprungvektor: 
Sprungvektor: 
Sprungvektor: 
Sprungvektor: 
Sprungvektor: 
Sprungvektor: 
Sprungvektor: 
Sprungvektor: 
Sprungvektor: 


Fehlermeldung 
Basic-Warmstart 
Token-Generierung 
Keywort erzeugen 
Hauptschleife 

Eval 

Token-Generierung (User) 
Keywort erzeugen 
User-Token bearbeiten 
Interrupt (Uhr) 
Interrupt 

Break Interrupt 

Open 

Close 

Kanal für Eingabe öffnen 
Kanal für Ausgabe öffnen 
1/0 zurücksetzen 

Input 

Ausgabe 

Abfrage der Stoptaste 
Getin-Routine 

Schließen aller Files 
Monitor Break 
Lade-Routine 


Sprungvektor:Save-Routine 
Kassettenpuffer 

Datenzähler (Write) 
Datenzähler (Read) 
RS-232-Input-Puffer (64 Byte) 


Commodore 16 , 116 , plus/4 Speicherbelegung (Systemadressen) 


Hex. Adr. 


$0455-0472 
$0473-0478 
$0455-0484 
$0494-04DC 
$04E7-04EA 
$04EF-O4F6 
$0500-0502 
$0503-0507 
$0508 

$0509-0512 
$0513-051C 
$051D-0526 
$0527-0530 
$0531-0532 
$0533-0534 
$0539 

$053A 

$0540 


$0541-0542 
$0543 
$0544 
$0545-0546 
$0547 
$0548 
$0548-0551 
$0552-0557 
$0558-055C 
$055D 
$055E 
$055F-05E6 
$05EC-O6EB 
$05EC-O5EF 
$05F0-05F1 
$05F2 
$05F3 
$05F4 
$05F5-065D 
$065E-06EB 
$06EC-07AF 
$07B0-07CC 
$07CD-07D0 
$07D1 
$07D2 
$070D3 
$07E5 
$07E6 
$07E7 
$07E8 
$07EA 


Dez. Adr. 


1109-1138 
1139-1144 
1145-1156 
1172-1244 
1255-1258 
1263-1270 
1280-1282 
1283-1287 
1288 

1289-1298 
1299-1308 
1309-1318 
1319-1328 
1329-1330 
1331-1332 
1337 

1338 

1344 


1345-1346 
1347 
1348 
1349-1350 
1351 
1352 
1355-1372 
1362-1367 
1368-1372 
1373 
1374 
1375-1510 
1516-1571 
1516-1519 
1520-1521 
1522 
1523 
1524 
1525-1629 
1630-1771 
1792-1967 
1968-1996 
1997-2000 
2001 
2002 
2003 
2021 
2022 
2023 
2024 
2026 


Label 


ESTAKH 
CHRGET 
CHRGOT 


PUFILL 
ERRNUM 
USRPOK 
RNDX 
DEJAVU 
LAT 
FAT 
SAT 
KEYD 
MEMSTR 
MSIZ 
TPTR 
FLTYPE 
RPTFLG 


SHFLAG 
LSTSHF 
KEYLOG 
MODE 
AUTODN 
FORMAT 
PCH 


KYNDX 
KEYIDX 
KEYBUF 
SAVRAM 
PAT 
LNGJMP 
FETARG 
FETXRG 
FETSRG 
AREAS 
ASPECH 
STKTOP 
WROUT 


INOFPT 
INORPT 
INOCNT 
SCBOT 
SCTOP 
SCLF 
SCRT 
INSFLG 


Beschreibung 


Chrget-Routine 

Chrgot-Routine 
Bankswitching-Routinen 
Print-Using-Parameter 

Trap- und Error-Flags 
USR-Sprungbefehl 

Startwert für RND 

Flag für Kalt- oder Warmstart 
Tabelle der logische Filenummern 
Tabelle der Gerätenummern 
Tabelle der Sekundäradressen 
Tastaturpuffer 

Basic-Anfang 

Basic-Ende 

Zeiger: Kassettenpuffer 

Typ des Kassettenfiles 
Tasten-Wiederholfunktion 
$80=alle, $40=keine, $00=nur DEL,CUR, SPC 
Zähler für Wiederholfunktion 
Shift-Flag 


Sprungvektor: Keylog 
Text-/Grafik-Flag 

Scroll-Flag 

Cpu-Arbeitsbereich 

Cpu-Register 

Cpu-Arbeitsbereich 

Zähler für Funktionstasten 

Zeiger: Text, Funktionstasten 
Speicher für Funktionstasten 

1 Page, Bankingroutinen 
Adresstabelle 

Long-Jump (Adresse) 

Long-Jump (Akkumulator) 

Long-Jump (X-Register) 

Long-Jump (Status-Register) 
RAM-Bereich für Bankswitching 
RAM-Bereich für Sprach-Synthesizer 
Basic-Pseudo-Stack 
Kassetten-Arbeitsbereich 
RS-232-Arbeitsbereich 

RS-232: Pointer auf Anf. Eingabepuffer 
RS-232: Pointer auf Ende Eingabepuffer 
Anzahl der Zeichen im Eingabepuffer 
Bildschirm: Unterer Rand 
Bildschirm: Oberer Rand 

Bildschirm: Linker Rand 

Bildschirm: Rechter Rand 
$FF=Automatisches Einfügen 


Commodore 16 , 116 , plus/4 Speicherbelegung (Systemspeicher) 


Hex. Adr. Dez. Adr. Label 

$07EE-07F1 2030-2033 BITABL 
$07F2 2034 SAREG 
$07F3 2035 SXREG 
$07F4 2036 SYREG 
$07F5 2037 SPREG 
$07F6 2038 LSTX 

$07F7 2039 STPDSB 
$07F8 2040 RAMROM 
$O7FC 2044 LSEM 

$0800-0BFF 2048-3071 TEDATR 
$0C00-0FE7 3072-4071 TEDSCN 


Beschreibung 


A-Reg. retten bei Sys-Kommando 
X-Reg. retten bei Sys-Kommando 
Y-Reg. retten bei Sys-Kommando 
Status-Reg. retten bei Sys-Kom. 
Register für Tastaturabfrage 
Flag: CTRL-S:$00=offen, $06=gesperrt 
RAM-ROM-Umschaltung für Monitor 
0=ROM, $80=RAM 

Motorsteuerung 

Farbspeicher (Text) 
Bildschirmspeicher (Text) 


Grafik-Bildschirm wurde noch nicht aufgerufen: 


$1000-FCFF 
$1000-3FFF 


4096-64767 
4096- 16383 


BASBGN 
BASBGN 


Grafik-Bildschirm wurde einmal 
$4000-FCFF 16384-64776 
$1000-17FF 4096-6143 
$1800-1BFF 6144-7167 
$1C00-1FFF 7168-8191 
$2000-3FFF 8192-16383 


Basic-RAM bei plus/4 
Basic-RAM bei C-16/116 


aufgerufen: 

Basic-RAM bei plus/4 
Basic-RAM bei c-16/116 
Luminanztabelle (Grafik) 
Farbtabelle (Grafik) 
Grafikbildschirm 


327068 BASIC START 
32768 

32768 a32768 jmp a32793 3; ---? basic kaltstart 
32771 

32771 a32771 jmp a32778 } 7--> basic warmstart 


32774 a32774 „by ® 
32775 a32775 „by ’chm’ 


32778 5 

Bez pr WARMSTART 

32778 

32778 a32778 jsr a65484 I eireh 

32781 jsr a35544 3 =--> clear stack 

32784 sta #a19 ; i/o kanal = tastatur 

32786 jsr a51145 5 => graphik abschalten 

32789 cli 

32790 a32790 jmp a344306 3 ---> ready. 

32793 

Sa KALTSTART 

32793 

32793 a32793 jsr a33047 3 => vektoren einrichten 
32796 jsr a32814 3 ---> basic reset 

32799 jsr 332962 ; ==> logo ausgeben 

32802 jsr a64756 3 => moduln initialisieren 
32805 ld» #251 ; lässt die oberen 4 stackbytes 
32867 txs ı f zeilenkopf frei 

32908 bne a32799 ; immer -> 

3281% 

Ba VEKTOREN 

32818 

32810 a32819 „si a39025 ; (a754) gk -> int wandlung 
32812 „si a3860l ; (a756) int -> gk wandlung 
32814 

Bag Jemen BASIE-RESET 

32814 

32814 a32814 Ida #7& ; jmp-kode 

32816 sta *a3B4 s funktionen-aufruf 

32818 sta al286 } usr-jump 

32821 lda #1,a39196 ; adresse von ’illegal quantity’ 
32823 ldy #h,a39196 

32825 sta al2Bl i l,usr-adresse 

32828 sty al282 $ Dane 

32871 ld« #332814-a32810-1 

32833 a32833 Ida a32810,x ; 2 vektoren einrichten 

32936 sta a754,x 

32839 dex 

32849 bpl a32833 

32842 ldx #a33199-a33058-1 

72844 a32844 Ida a33#59-1,x ; chrget-routine und allgemeine 
32847 sta all39-1,x ; routine f lda (.„..),y aus ram 
32850 dex i nach unten kopieren 

32851 bne a32844 en 
32855 stx *ald4 ı vorstelle f register-verschieb 
32855 stx *al9 ; i/o-kanal := tastatur stack 
32857 stx *a24 ı h,zeiger auf letzten string im 
32959 stx a747 ; trace abschalten 

32862 stx 24996 ı anfang des programmspeichers 
32865 txa ı=8 


32866 ldx #3 


32868 a32968 sta #alli-lıx auto und graphik-speicher 


32878 sta a742-1,x ; flags für graphik 

dex 

bre a32368 

nop 
32877 stx al283 ; 1. stelle der zufallszahl 
Zz99 in | 
32881 stx aSıl2-3 ; link-adresse f basic-zeilen 
32994 stx asi2-4 ı vorbesetzen 
32397 ldx al339 ; farbe % helligkeit für zeichen 
32890 stx #3174 
32892 ldı #461100110 farbe % helligkeit für 
329974 stx *a133 multicolor-graphik 
32895 ldx #325 anfang des string-stacks 


stx *a22 
ldı #1,a40964+1 


string-stackzeiger 
l,basic text bereich 


EFFESFREEFPERBRBEFT, 


ldy #h,a4896+1 3. Hann ; 

stx #a43 ; l,progr anfangszeiger 
32906 sty #244 3 Nana 
32708 ldx #5 
32910 stx *a34 s zähler f kopierroutine 
32912 lda #h, 33248 ı basisadresse des zeichensatzes 1 
32714 sta a740 ı für char speichern 
32917 Idı #2 
32919 a32919 Ida al33i-1,x s memtop: speicher-obergrenze 
F2922 sta #a59-1,x ; als obergrenze für basic 
32924 sta #a51-1,x s und anfang des stringbereichs 
32924 dex ; speichern 
32927 bne a32917 


32929 a32929 1ldy #0 
asz93l Ida aF3a95,y 
sta a1189,% 


routinen f indirekten zugriff 
auf ram nach unten kopieren 


va. 


cpy #11 

bee a32931 
ldy *a34 

lda a32956,y 
sta alldl,x 
dec *a34 
32955 bpl 332929 
32955 rts 

32956 

32956 a32956 .by al@o 395 alll als add a59 s adr f Ida (v..),y 
32962 


BEIEE, EEEESEELLZEELEEEEEEEEEEANMEN GE EINSCHALTMELDUNG, NEM 
32962 
32962 a32962 Ida #a43 ; l,progr anfangszeiger 
32964 ldy #244 35 Ares. 
32966 jsr a35107 3 > platz im speicher prüfen 
327697 jsr 363359 3 777> meldung ausgeben 
32972 „by 147 13 ° commodore basic v3.5 °® 
32997 lda *a55 ; l,basic obergrenze 
32997 sec 
33000 sbc *#a43 ; - l,progr anfangszeiger 
tax ; = 1, freier speicher 
lda #256 ; h,basic obergrenze 
sbc #344 3 - h,progr anfangszeiger 
ijisr a42079 3777: (x,a) ausgeben 
jsr 3643357 } ==> meldung ausgeben 


.by * bytes free" 138 
jnp a3s451 3 ---> new 


a << BASIC VEKTOREN 


ass029 „si a344213 ; (3769) fehlerausgang 
‚si a34578  (a776) ready-schleife 
‚si a35158 ; (a772) zeile tokenisieren 
.si a33694 : (3774) token in keywort wandeln 
„si a33798 i (a7756) basic roautinenaufruf 
‚si as7gll ; (a778} formelauswertung 
„si a35178 i (a780) keywort in token 254 wandeln 
„si a13726 ı (a782) token 254 listen 
„si a339779  (a784) token 254 ausführen 
ld #a33047-233029-1 ;ı vektoren einrichten 
Ida ati629,x 
sta a768,x 
dex 
bpl a336049 


aslıes9  rts 


ee ——e CHRGET KOPIE 


33059 ı der bereich a33059,...,a33108 wird in den ram-bereich ab all39 kopiert 
33059 


33059 a33059 inc #259 chrget-routine 


33061 bne a33065 i wird nach unten kopiert 

33063 inc #360 

33065 333065 sei 

33066 sta a65343 ; schalter auf ram 

33069 ldy #9 

33971 lda (a59),y 

33073 sta a63342 ; schalter auf rom 

33076 cli 

33077 cnp #59 ; ziffer: carry = & 

33679 bes ass ı sonst: carıy = 1 

33081 cmp #° 

33083 beq a33059 

33095 sec 

33086 she #48 

33098 sec 

33089 she #268 

33991 a33091 rts 

33092 

33092 sta all86 ; allgemeine routine f indirekten 
33095 a32095 sei ; zugriff auf ram, wird in den 
33096 sta a43343 ; bereich ab 1172 kopiert. 

33099 lda (sÖ),y ; 1186 ist dann die adresse des operanden 
33101 sta 365342 

33104 eli 

33105 rts 

32106 

33106 .byano ; konstante ® für systemvariablen 
33109 

30 LDA LaulsY AUS RAM 
33169 

33109 aS3109 Ida #367 s adresse f 1da („..),y 

I3111 bne a33163 

33113 


33113 aS2113 1da #a78 
33115 bne a335163 


33117 a33117 1da #220 


33119 bne a33163 

33121 

33121 aS3121 Ida #a71 

33123 bne a33163 

37125 

33125 a33125 Ida #378 

33127 brne a33163 

33129 

33129 a33129 Ida #392 

33131 bne a33163 

33133 

33133 aS3133 1lda #a95 

33135 bne a33163 

33137 

33137 a33137 1da #a61 

33139 bne aS3ls3 

33141 

33141 aS3141 1da #387 

33143 bne a33163 

33145 

33145 a33145 1lda #389 

33147 bne a331653 

33149 

33149 a33149 Ida #398 

33151 bne a33löF 

33153 

33153 aF3153 1da #386 

33153 bre a33163 

33157 

331537 a33157 1lda #109 

33159 brne aS3163 

33161 

33161 aSSl6l Ida #390 

33163 a33163 jmp all72 ; => lda (adr),y (aus ram) 
33166 

a BASIC KEYWOERTER 
33166 

33166 a33l66 „by "enD’ ; 128 
33169 „By "foR”’ ; 129 
33172 «by ’nexT ; 130 
33175 „by "datA s 151 
33180 «by ”’input’ 163 ; 132 
321865 „by "inpuT” s 133 
33171 by ’diM’ s 134 
331974 ‚by ’reaD’ s 135 
33198 «by "leT’ ; 136 
33201 ‚by ’gotD’ s 137 
33205 «by "ruN” ; 138 
33208 “by ’iF’ ‚ 139 
33218 „by "restorE* ; 148 
33217 ‚by "gosuB’ x 141 
33222 ‚by "returN” s 142 
33228 ‚by ’reM” s» 143 
33231 “by ”stoP’ ; 144 
33233 ‚by ’oN”’ ; 145 
33237 „By "waiT’ ; 146 
33241 ‚by "loaD’ ; 147 
33245 „by ’savE"’ s 148 
33249 ‚by ’verifY" ; 149 


33255 .by "der’ ; 1590 
33258 «by "pokE’ s 151 
33262 „by ”print’ 163 ; 152 
33268 „by "prinT’ s 153 
33273 „by "conT’ ; 154 
33277 by "Ir 155 
33281 „by ”"CLR” ; 156 
33284 „by "’cmD’ s 157 
33297 „by ’syS’ ; 158 
33290 “by "opeN’ 159 
33294 .by "closE’ ; 160 
33299 «by ”’geT’ ; 161 
33302 .by ”’neW’ ; 162 
33305 “by "tab’ 168 s 163 
33309 „by "t0” ; 164 
S3311 “by ’#N’ s 165 
33313 .by ’spc’ 168 ; 166 
33317 ‚by "theN’ ; 167 
33321 „by ’noT’ ; 168 
33324 «by ”’steP” ; 169 
33328 ‚by 171 ; 1790 + 
33329 „by 173 I = 
33330 .by 170 ; 172 * 
33331 „by 175 173 / 
33332 ‚by 222 ; 174 
33333 „by "’anD’ » 175 
33336 “by ’oR” ; 176 
33338 .by 198 ; 177 > 
33339 .by 189 ; 178 = 
33340 ‚by 188 ; 177 <& 
33341 by "sqN’ ; 180 
33344 “by "’inT’ ; 181 
33347 „by "abS” ; 182 
33350 „by "usR’ ; 183 
3I33IT by ?frE’ ; 184 
33356 «by "poS’ ; 185 
33399 “by "sqR’ ; 186 
33362 „by ’rnD” 197 
33365 ‚by "loG” ; 188 
33368 „by ’exP" ; 189 
33371 .by "coS’ ; 1980 
33374 „by "siN’ s 191 
33377 „by "taN” ; 192 
33386 .by ’atN” ; 193 
33383 „by "peek” ; 194 
33397 ‚by ”leN’ ; 195 
33398 .by "str" 164 ; 196 
33394 „by "val’ 5.19% 
33397 ‚by "asl” ; 198 
37400 “by ’chr’ 164 ; 199 
33404 ‚by ’left’ 164 x 200 
33409 „by right’ 164 ; 201 
33415 „by ’mid’ 164 ı 202 
33419 “by "gD” ; 203 
33421 “by ’rgR” ; 204 
33424 “by ’rcliR” ; 285 
33428 „by ’rluM” ; 206 
33432 «by "joY’ ; 207 
33435 “by ’rdoT’ ; 208 
33439 ‚by del’ ; 209 


33442 by "hex’ 154 219 
3445 ‚by ’err’ 164 5211 
33450 ‚by "instR’ ; 212 
33455 „by ’elsE’ s 213 
32457 ‚by "resume" ; 214 
334453 “by "traP’ ı 215 
33469 ‚by "troN’ ; 216 
33473 ‚by 'trofF’ s 217 
323478 «by "sounD’ ; 218 
323493 “by "voL’ ı 219 
33496 ‚by "autD”’ ; 226 
$ „by "puder’ s 221 

«by "qraphil’ s 222 

‚by "painT’ s 223 

‚by ’chak” ; 224 

«by ’boX’ s 225 

.by "circlE’ ; 226 
33 ‚by "gshapE’ ı 227 
33526 .by "sshapE’ i :22B 
33332 „by "’draW’ s 229 
FIT36 “by "locatE” ; 230 
323342 “by "coloR” ; 231 
33547 ‚by "scnclR” s 232 
33393 ‚by "scalE’ ı 235 
33538 “By "helf’ ; 234 
33362 „by ’cdO” ı 235 
33564 ‚by "looF” ; 2356 
33349 „by ’exiT’ 237 
33372 ‚by "directorY’ ; 258 
33581 «by ’dsavE’ ; 239 
33586 „by "dioaD’ ; 240 
Sal „by "headeR’ ; 241 
33397 ‚by "scratch’ ; 242 
33684 ‚by "collecT’ ; 243 
Fell “by "copY’ s 244 
33615 «by "’renamE’ ; 245 
33621 ‚by "backuf” 246 
33627 ‚by "’deletE’ s 247 
F3633 «by "renumber' ı 248 
33641 .by "keYy’ ; 249 
33644 „by "monitoR’ 3 256 
33651 ‚by "usinG’ s 251 
33655 „by "until” ‚ 252 
ERT-1-pI „By "whilE” ı 253 
33646 by 8 
33667 
33667 RASIC RQOUTINEN ADR 
33667 
33667 333667 „si a36059-1 ; 128 end 
33669 „si a44490-1 1207 For 
33671 „si a37324-1 ; 130 next 
33673 „si a36272-1 ; 151 data 
33673 .si a37192-1 ; 132 input# 
33677 „si a37128-1 ; 133 input 
336797 .si a38555-1 ; 134 dim 
33481 „si a37199-1 ; 135 read 
33683 „si a36476-1 ; 136 let 
33485 „si asal7ı-l ı 137 gota 
33697 „si a33772-1 ; 138 run 
33697 „si ass32l-1 En 3 Zu 3 


FE691 .si a3s994-1 ; 146 restore 
33693 ‚si a36140-1 s 141 gasub 
33695 „si a36227-1 ; 142 return 
33697 „si alb3ss-1 : 145 rem 
336599 .si al6a56-1 ; 144 stop 
33701 .si a36379-1 ; 145 on 
33703 ‚si a408554-1 ; 146 wait 
33705 „si a42995-1 ; 147 load 
33707 .si a42974-1 ı 148 save 
33709 „si a42992-1 ; 149 verify 
3711 „si a39581-1 ; 159 def 
33713 .si a40466-1 ; 151 poke 
33713 „si a36832-1 ; 152 print# 
33717 ‚si as6B64-1 ; 153 print 
33719 si a36999-1 ; 154 cont 
33721 „si a3ssßI-1 ; 155 list 
33723 ‚si a35480-1 ; 156 cIr 
33725 „si ass838-1 ; 157 cmd 
33727 „si a42933-1 ; 158 sys 
33729 „si a43085-1 ; 159 open 
33731 „si a43699-1 » 1650 close 
33733 .si a37048-1 ;s 161 get 
33735 si a35449-1 s 162 new 
33737 si a36343-1 ; 213 else 
33739 ‚si a46144-1 ; 214 resume 
33741 si a46123-1 ; 215 trap 
33743 „si a46674-1 ; 215 tron 
33745 si a46677-1 ; 217 troff 
33747 .si a47177-1 ; 218 sound 
33749 „si a47293-1 ; 219 vol 
33751 „si a46797-1 ; 220 auto 
33753 „si a46494-1 ; 221 pudef 
337553 ‚si a50427-1 ; 222 graphic 
33737 „si a47313-1 ; 223 paint 
33737 „si a47572-1 ; 224 char 
33761 „si a47842-1 ; 225 box 
33763 „si a49182-1 ; 226 circle 
33765 „si a48437-1 ; 227 gshape 
33767 „si a48aBl-1 ı 2298 sshape 
33769 „si a5039I-1 ; 229 draw 
33771 ‚si a56447-1 ; 230 locate 
33773 .si a50458-1 ; 231 color 
33775 ‚si a90535-1 ; 232 scnelr 
33777 „si a5a6l6-1 ;ı 233 scale 
33779 ‚si a46824-1 ; 234 help 
33781 „si a46423-1 ı 235 do 
33783 ‚si a46595-1 ; 236 loop 
33785 .si a46508-1 ; 2377 exit 
33787 „si aS1398-1 ; 238 directory 
33789 .si a51521-1 ; 2539 dsave 
33771 „si a51337-1 ; 246 dload 
33793 ‚si as1l560-1 ; 241 header 
33795 ‚si aS51612-1 ı 242 scratch 
33797 ‚si a5l66s6-1 ; 2453 collect 
33777 „si aS1474-1 ; 244 copy 
33901 „si a51700-1 ; 245 rename 
33863 „si aS1712-1 ; 246 backup 
33905 „si a44634-1 ; 247 delete 
33807 „si a43919-1 ı 248 renumber 
33909 „si a46889-1 ; 249 key 


33811 „si asszs2-1 ; 250 monitor 


I381I a3T813 „si a41662 ; 180 sgn 
33815 „si a4iBid s 181 int 
33817 „si a416953 ; 182 abs 
33819 „se al288 ; 183 usr 
33821 „si a39522 ; 184 fre 
33923 ‚si a39549 ; 185 pos 
33925 „si a42468 ; 186 sqr 
33827 .si a42759 ; 1987 nd 
33929 .si 340998 ; 188 log 
33831 „si a42592 189 exp 
BRI-ARI ‚si a43632 ; 198 cos 
33835 „si a43639 ; 191 sin 
33837 „si a43712 ; 192 tan 
338397 „si 343802 ; 193 atn 
323941 .si a40442 ; 194 peek 
33943 „si a40289 ; 195 I1en 
33845 ‚si a39782 ; 196 str$ 
33847 ‚si a40339 ; 197 val 
33949 ‚si 340304 ; 198 asc 
33951 „si a40123 3 199 chr$ 
I3BIF „si a40143 ; 200 left$ 
33955 „si a40195 ; 201 rights 
33857 ‚si a40213 ; 202 mid$ 
33959 „si a49517 3 204  rgr 
33861 „si a49029 285 relr 
33363 „si a49031 s 2064 rlum 
33865 „si a49099 ; 287 joy 
33867 „si 349149 ; 208 rdot 
33969 „si a40475 ; 269 dec 
33971 „si a46343 ; Z21@ hexs 
33873 .si a4627% ; 211 err$ 
33875 
3239875 a33875 „by 121 ‚ 178 + 
323976 .si a4dads-1 
33878 .by 121 ı ı71 - 
338797 „si a40583-1 
33981 ‚by 123 172 % 
33882 „si a4iB8I-1 
33984 “by 123 s 173 / 
33885 „si a41367-1 
33387 ‚by 127 ; 174 
33898 „si a42478-1 
339390 ‚by 99 175 and 
33891 „si a38395-1 
33893 ‚by 70 ; 176 or 
33894 „si al8392-1 
FI896 ‚by 125 ’ Hr 
33997 ‚si a42535-1 
33999 “by 90 ; 1458 not 
39005 „si a37989-1 

‚by 190 177 > 178 = 179 


„si a39446-1 
nn MELDUNGEN 


a33705 .by "too many files” ; 
.by ’file opeN’ H 
‚by "file not opeN” ’ 
„by "file not faunD’ 3 
‚by "device not presenT” B 


nein 


BETFE ‚by "not input filE” ’ & 

33997 ‚by "not output FilE’ # 7 

BAnaE “„by "missing file namE"’ 8 

34619 ‚by "illegal device number’ ‚9 

34646 „by "next without for’ ; 18 

405 ‚by "syntax" 3 11 

340462 ‚by "return without gosuß” ı 12 

746892 “by "out of datA” 3 5 

34093 ‚by "illegal quantitY’ 5 14 

34109 ‚by "overfloW” 3 15 

34117 ‚by "out of memorY'’ H 16 

34130 „by "undef’ 37 "d statemenT" ; 17 

34147 „by "bad subscripT” ; 18 

24140 „by "redim’ 37 ’d arraY" 19 

34173 «by "division by zerü’ ; 29 

34189 ‚by "illegal direcT’ H 2 

14203 „by "type mismatch” H ae 

34216 ‚by "string too lonG’ ’ 23 

S4231 ‚by "file datA’ } 24 

34240 ‚by ’formula too complex’ s 25 

342597 “by "can’ 39 "t continuE” ı 26 

34273 ‚by "undef’ 39 ’d functioN” ı 27 

34289 „by "verify" H 28 

34295 „by "loan" H 29 

34299 ‚by 'break” © 166 H 39 

54206 „by "can’ 37 *t resumE" ‚51 

34318 .by "loop not founD” H 32 

542332 ‚by "loop without dD” h 33 

34347 ‚by "direct mode anlY’ 3 34 

34363 “by 'no graphics areh’ 5 39 

34379 ‚by "bad disk’ 5 36 

34387 

34397 234387 tax i nummer der meldung 
34398 ldy #5 

343970 Ida #1,333905 ; l,tabelle der meldungen 
34392 sta #ald 

343974 Ida #h,a33905 % Maema 

343976 sta *#a37 

34398 334398 dex ‚ richtige meldung gefunden? 
34399 bmi 234429 3 jas => 

34401 a34461 Ida (als) ,y ; nächste meldung überlesen 
34403 pha 

34404 inc *a3& 

34406 bne a34418 

34408 inc *a37 

34410 334410 pla ı letztes zeichen der meldung” 
34411 bpl as44n1 s nein: -=> 

34413 bmi a34398 ı ja > 

34415 

34415 a34415 jsr a65359 => meldung ausgeben 
34418 “by 13 18 ’ready.’ 151906 

34429 a34429 rts s 

24430 

Be en AUSSANG 
34439 

34430 234430 Idı #128 ; ready.’ 

34432 „by 44 


34433 a34433 1Idx #16 i "out of memory" 
344353 334435 jmp (a768) 3} =0-> fehlerausgang (a34438) 


34438 a34438 txa 


34439 
34441 
34444 
34446 
34448 
34459 
34453 
34456 
34459 
34462 
34463 
34465 
34467 
34469 
34472 
34473 
34475 
34476 
34478 
34481 
34484 
34486 
34488 
34491 
34494 
34495 
34498 
34501 
34581 
34502 
34503 
34594 
34506 
34508 
34511 
34512 
34515 
34518 
34529 
34522 
34525 
34528 
34530 
34532 
34533 
34535 
34538 
34539 
34549 
34542 
34545 
34548 
34555 
34557 
34558 
34569 
34563 
34566 
34568 
34571 
34573 


a34450 


as4501 


a34539 


a34555 


a345653 


bmi 
stx 
bit 
bpl 
ldy 
lda 
sta 
lda 
sta 
dey 
bpl 
CPx 
beq 
ldy 
iny 
beq 
dey 


al269,y 


as54459 


as4501 


*a2l 
al268 
al266d 
*a20 
#255 


‘ a1267 


al27l 


asszal 
335894 


#9 
*alsl 
a51145 


a34387 


(a36),y 


#127 
a37042 


334530 
a35544 
a65359 

’ error” 
+a58 


334563 


[) 


"ready.’ ausgeben -> 
fehlerkode 
run-modus? 

nein: -> 


zeilennummer 

und 

adresse 

für trap und resume speichern 


’undefined statement’? 
jan 2 

on-error-flag 

gesetzt? 

nein: -> 


h,zeilennr f fehlerbehandlung 
merken während fehlerbearbeitung 
Iyuna 


on-error-flag rücksetzen 
stack-zeiger für trap 


---} fehlerbehandlung 
---> kommandoschleife 


graphik-modus abschalten 
---> normale speicheraufteilung 


---> fehlerzeiger positionieren 
—-} Eirch 


i/o kanal = tastatur 
---: neue zeile 
---} ??° ausgeben 


bit 7 löschen 
---} zeichen ausgeben 


---> clear stack 
---> meldung ausgeben 


direktmodus? 
jas -> 


---> ” in ” und zeilennummer ausgeben 
---}> "ready.” ausgeben 


si ermöglicht ausgaben 


---> setmsg 


flag für runmodus rücksetzen 


Sa ee READY 

34575 

34375 2345753  imp (3778) I mr ready (234578) 

34378 s 

34578 34578 ld“ #255 : direktmodus herstellen 
34580 stx #a98 

34582 jsr a24995 3 => eingabeschleife 

345395 stx #257 ; l,textzeiger vor puffer setzen 
34597 sty #asß 3 NAaenn 

345997 jsr all3? => chrget 

34592 tax 

34593 a34593 beg a34575 i leere eingabe: -> 

34595 bec 334606 ; zeilennummer eingegeben: -> 
34597 jsr a35155 3 ==> eingabe tokenisieren 
34 jsr al145 | + chrgat 

34603 jmp a3sgal 3 777} direktamweisung ausführen 
34604 

T4ä06 aT4sdh jsr 236414 } 77-> zeilennummer übernehmen 
34609 jsr a35153 3 ---?> zeile tokenisieren 
34612 sty #all ; zeilenlänge 

34614 isr 235399 3 ---> zeile suchen 

34617 bee aS4693 ; nicht vorhanden: -> 

34619 

ae Ne ZEILE LISCECHEN 
34619 

34619 Idy #1 

24621 jsr al233 3 => h,linkadresse holen 
34624 sta #233 

T4426 lda *%345 ; \,variablenanfang 

34628 sta #234 

34630 lda #395 ı h,zeilenanfang 

34632 sta #237 

34634 dey 

34635 isr al233 3 ---> 1,linkadresse holen 
34439 eie 

34639 sbc #295 i - 1,zeilenanfang 

34641 eor #255 ı invertiert 

34643 ele ; = -zeilenlänge 

34644 ade #349 i + l,variablenanfang 

34646 sta #345 ; = l,neuer variablenanfang 
34648 sta #al6 

34650 lda *a4& ; h,variablenanfang 

34652 adc #255 

34654 sta #246 

34656 sbc #296 ı h,zeilenanfang 

34658 tax i zahl der zu verschiebenden pages 
34459 sec 

34668 lda #295 ; l,zeilenanfang 

Bu T-Ty sbe #345 ı - l,variablenanfang 

34664 tay ; = länge des restabschnitts 
34665 bes a34670 ;ı kleiner als 256: -> 

34667 inx 

34663 dec *a37 ; zeiger f transport vorbereiten 
34678 234670 clc 

34671 ade *a34 

34673 bec a34678 

34675 dec *a33 


34677 ErE 


34578 
34681 
34583 
34684 
34695 
34588 
34690 
34671 
34693 
346976 
34699 
34781 
34704 
34706 
34706 
34706 
34706 
34767 
34709 
34711 

34713 
34715 
34717 
34719 
34720 
34721 

34723 
34725 
34726 
34728 
34730 
34733 
34735 
34737 
34739 
34749 
34742 
34743 
34745 
34747 
34749 
34758 
34752 
34753 
34754 
34755 
34757 
34759 
34761 

34763 
34765 
34767 
34769 
34771 

34773 
34774 
34777 
34779 
34798 
34792 


a34678 


a34693 


a34720 


a234726 


a347653 


a34774 


a1206 
(236) ,y 


a34678B 
#333 
#337 


a34678 
a33482 
«34840 
#5 
a1189 
a3453973 


334720 


#4 
a34726 


*388 
*a897 
assaag 
#0 

#1 
(295) ,y 


(a95),y 


*#a20 
(39T) .y 
*a2l 


(a95) ,y 


#295 
*+a95 
a24763 
#296 
*349 
#a5d 
*a45 
#345 
*#all 


a1199 
(a95),Yy 


a34774 
a34949 


Pr PPPRL’T ERFREFT BEPRRE?T BERRIETT 


ET ZErREET 


in A 


DL ZErPEEFT 


---> Ida (ad4),ıy 


ende der page? 

neins 5 

h.quellzeiger 

h,zielzeiger 

page-zähler 

nicht nulls -> 

—. Ei 

> linkadressen erzeugen 


---> erstes zeichen im puffer holen 
endemarke: ready -> 


ZEILE EINFÜGEN 


l,variablenanfang 
Hısas 


+ zeilenlänge 


+ länge des zeilenkopfes 


l,neues programmende 
Miymass 

=> verschieberoutine 
l,linkadresse 

Nass 


l,zeilernummer 


Ayzan 


zeiger hinter zeilenkopf setzen 


l,neuer variablenanfang 
N, 
zeilenlänge 


---> 1da (a5N,y 


; zeile in freigemachten bereich 


kopieren 


---: linkadressen erzeugen 


348905 
534807 
349097 
34818 
34813 
34816 
34818 
34821 
34823 
34826 
34927 
34829 
34831 
34934 
34835 
34837 
34840 
34949 
34840 
34948 
34842 
34844 
349846 
34848 
349497 
34851 
34854 
34856 
34857 
4940 
34862 
34864 
34865 
34868 
34970 
24971 
34872 
34874 
34975 
34977 
34877 
34884 
34882 
34883 
54995 
34887 
34987 


a34818 


334829 


a34837 


334840 


334849 


a34862 
334864 


a35475 
*a115 
*alld 
a34837 
*a20 


*al1 
*a97 
*a2l 
#all6 
*a98 
#144 


a41678 
342095 
#0 
a2lötl,n 
a34829 
alsl9ıx 


a34818 
#29 
alll9,x 


*a257 
a34575 


a1290 
a34905 
#4 
a1200 
a34864 


*a34 


#0 
(al4),y 


*a35 


(a34),y 


{ *a34 


#asI 
a34849 


---> textzeiger rücksetzen, clr 
l,auto-schrittweite 


Ny0=* 
beide null: -> 
l,zeilennummer 


+ l,schrittweite 


l,neue zeilennummer 


h,zeilennummer 
+ h,schrittweite 


= h,neue zeilennummer 


exponent 


verhindert invertieren 


---> integer in gk-zahl wandeln 
---} zahlstring erzeugen 


zahlstring aus puffer 


ende: -> 
in tastaturpuffer 


’kursor nach rechts’ 


in tastaturpuffer 


pufferindex 
---} ready 


LINKADRESSEN 


PT] 


l,programmanfang 
Nyess 


ERZEUGEN 


---> l\,linkadresse holen 


Busen 


beide null: programmende -> 


---> zeichen aus zeile holen 


zeilenende? nein: 


l,linkadresse 


ea 


immer > 


_ > 


a34991 


a34901 


234905 


334905 
334969 


? a24929 


a34732 


az4944 


a349759 


a34977 


a34901 


*a45 
*a4s 


#0 


a42897 
#13 

a34926 
aslz,x 


ı #89 


a34708 
a32300 


a36913 


3429343 
*asl 
#1,21968 
3349744 
*a62 
#h,21968 
a33095 
#0 
*a2 
#129 
a34979 
(adl),y 
333007 
#2 
*a74 
#253 
a33007 
(a6l),y 
354975 


*a73 
(a6ld,y 
333007 


« #18 


334993 


(adl),y 
*a2 
333907 


ı #18 


#129 
a34993 
#3 


IPPEEPPEEFT) 


. 


PPPESPRBEFeN 


l,programmende 
N,» 
”2 


l,variablenanfang 
Aawsm 


EINGABESCHLEIFE 


eingabezeiger 


---} zeichen vom bildschirm holen 


zeilenende? 
je: -> 


zeichen in puffer speichern 
eingabezeiger erhöhen 
schon 89 zeichen eingegeben? 


nein: -> 


---> "string too long” 


---> puffer abschliessen 


UCHE IM 
---> fabl,a62) ı= 
l,stackzeiger 
Nasa 

leer: -> 


stack 


gesuchtes taken 
"for’? 


nein: -> 
token im stack? 
nein: -# 


for-next variable 


BASIC-STACK 


(a124, a125) 


bei ’next’ angegeben? 
nein: -> 

gleicher name im stack? 
nein: -> 

ja: -> 


stacklänge bei "for" 


token im stack 
= gesuchtes token? 
ja: 


stacklänge bei ”for’ 


for” 


stacklänge bei 


"goasub” 


34993 234993 txa 


34994 Ele 

34995 adc *a6l ı stackzeiger erhöhen 

34997 sta *a6l 

34999 bec a34932 

Sol inc #a62 

33003 bne a34932 

33905 

35005 a35005 Idy #1 ; setzt z-bit zurück 

35607 335067  rts 

337008 

E500B BLOCKTRANSPORT 
35008 

35008 a3god8 jsr a35197 ;5 => speicherplatz prüfen 
35oll sta #a47 ; l,neues variablenende 
35013 sty #a50 3 Byresas 

35015 sec 

33016 lda #aPa ; l1,quellbereich ende + 1 
35018 sbc #395 » - l,quellbereich anfang 
39028 sta #a34 ı = blocklänge mad 256 
35022 tay 

33023 lda *a91 ı h,quellbereich ende + 1 
35025 sbe #a9& ı - h,quellbereich anfang 
39927 tax ; = anzahl der vollen pages 
33028 ink 

33929 tya 

35030 beq a33069 ; keine teilpage: -> 

33032 lda #390 ; l,quellbereich ende + 1 
339034 BBE 

33035 sbc *a34 ; - länge der teilpage 
33037 sta #290 ı = l,ende letzte volle quellpage + 1 
330397 bes a35o44 

35041 dec #aP1l FE Ayası 

39043 sec 

35044 335044 Ida #288 ; l,zielbereich ende + 1 
33046 sbce #a54 » - länge der teilpage 
33548 sta #288 ; = l\,ende letzte volle zielpage + 1 
33050 bes a3sß6l 

33952 dec *a97 3 Dass» 

33054 hcec a3soal 

33056 

33056 a3ses6 isr asslel 3 > Ida (a9) ,y 

3350597 sta (aBB),y 

37061 a3Seß6sl dey ; teilpage fertig? 

33062 bne a33056 ;i nein: > 

33064 jsr aszl6l I > Ida la9a),y 

35667 sta (a89),y ı letztes byte der teilpage 
35069 a35069 dec #a91 ; h,quellzeiger 

35071 dec #a97 iı h,zielzeiger 

33073 dex ; page-zähler dekrementieren 
33074 bne a3sesl ı noch nicht nulls > 

33976 rts 

33077 

Sa a FLATZ IM BASIC STACK 7 
33077 

33977 233077  sty a203& ; platzbedarf (bytes) 

Bteie)=15) sec 

35081 lda #a124 ;ı l,stack zeiger 

35033 sbc a20Is ı — platzbedarf 

33086 sta #al24 ; = l,neuer stack zeiger 


33398 
35899 
35992 
35094 
33096 
359978 
33109 
35192 
35104 
33106 
35197 
35197 
359197 
35107 
351689 
35111 
35113 
55115 
35117 
35118 
35129 
35121 
3S122 
35124 
35125 
33127 
3528 
33132 
35135 
aalıs 
35136 
BieRBt=| 
33137 
35140 
55141 
35143 
331453 
33147 
35149 
25151 
33132 
35152 
35155 
35155 
35155 
35155 
35158 
35158 
3516 
35161 
Fa163 
353164 
33167 
33170 
35170 
35173 
33179 


a33107 


ass117 


assızl 


335164 


ass1l7o 
ass1l73 


Imp 


lda 
pha 
Ida 
pha 
jsr 
jap 
jisr 


bec 
jmp 


*a125 
#h,a1772 
a35152 
a335196 
*a124 
#1,a1772 
a33152 


tag2 
assısl 
a3s117 
*asl 
assısl 


ı Ha9&6-a87 


+97, 


assızl 


343348 


x #247 


#a97 8 


a3sl32 


‚ #a5z 


a3s151 
asslaz 
*asıl 

ass152 


*+a57 


#360 


al1l45 
anal?E 


al137 
a33170 
(23798) 


. -. 


PPPEE TER 


stack-untergrenze unterschritten? 


ja: fehler -> 


FERTZ IM 


SPEICHER 


(a,y} © string-anfangsadresse? 


ja: f 


ertig -" 


a retten 
zellen a87 bis a6 retten 
y retten 


zellen 387 bis a9%& retten 


zellen 287 bis a9& wiederherstellen 


y wiederherstellen 


a wiederherstellen 


garbage collect 


string-anfangsadresse 


jetzt > 


nein: 


(a,y?? 


fehler -" 


> "out of memory" 


TOEENISIEREN 


progr 


ammzeiger 


retten 


> chrgot 


> chrget 
ziffer: weiterlesen -> 


usar-kevwort 


> zeile tokenisieren (a3515 


(235178) 


= 
] 


8) 


a: 


353178 a35178 beoc 235294 ı cc: user-kevwort "> 

35196 enp #& ı endemarke? 

33192 beq 333249 ak 

75194 cap #” 3 ; trennzeichen? 

33186 beq 333170 3 gas => 

5188 emp #’° s 'm 

35198 bie a3s1r6 i nein: > 

35192 Ida #153 i durch "print’-token ersetzen 
35194 bne a35242 

35196 

35194 a39196  cmp #128 ; shift-zeichen? 

35198 bec asszll ı nein: -> 

33200 cmp #255 ; pi? 

E52 beq a33176 jan => 

35204 Lady #1 

33206 jsr alias H » zeilenrest um (y} vorziehen 
3I2097 begq alsled s immer —" 

35211 

Sszil a3s2ll cmp #°" 

33213 bne a3sz2 

33215 a35215  jsr all3Y 3 > chrget 

35218 emp #65 ; endenarke? 

33220 beq a35269 3 jas > 

33222 emp #°" 

37224 beq a3517% 

3922 bne a3S215 

33228 

33228 a35228 jsr 3 ---> keywort tokenisieren 
33231 bee » nicht gefunden: > 

25323 EpY 

33233 beq B eis -> 

33237 jsr B enrest um {v} vorziehen 
33240 lda B 

339242 £ ldy 

33244 sta (aiP),y ; 

33246 cmp #143 b 

33248 beq 333263 3 

33230 camp #131 b 

33232 bne 235179 3 3 

33254 jsr all39 B chrget 

30297 isr a36272 B proqgzgr auf nächstes trennzchn 
39268 jimp a33164 } 7775 zurück an den anfang 
39263 

33263 a332s3 jsr all3? H » chrget 

35266 jsr albs363 } 70-5 progzgr auf zeilenende 
39269 a33269 1ldxı #359 

s5271 pla ; programmzeiger wiederherstellen 
35272 sta *add 

33274 pla 

35275 sta #357 

35277 sec 

33278 txa 

33279 sbc #239 

Fa281 tay 

35282 iny ; zeilenlänge 


33283 rts 


a USER-TOKEN EINRAUEN 
33284 
35294 a33284 pha ; user-zeichen auf stack 
33285 dey 
33286 dey 
33287 jsr a3530& } ==> zeilenrest um (y) vorziehen 
35298 ldy #9 
335292 Ida #254 ; user-token 254 
332974 sta (a59),y 
39296 iny 
39297 pla ; und user-zeichen 
35298 sta (a59),y }ı in zeile bringen 
3I2300 jsr all39 3 => chrget 
33303 jimp 335170 3 777? weitermachen 
37306 
Saas Je ZEILENREST VORZIEHEN 
33306 
35306 al5366 clc 
33307 tya ı offset 
35308 adc *a5? i + textzeiger 
35310 sta #334 ; = quellzeiger 
35312 lda #a6® 
39314 adc #8 
39316 sta #a35 
35318 ldy #8 
35320 a35T20 jsr a1200 ı -7-> l1da (a34),y 
392323 sta (a3) ,y 
33325 iny 
33326 cmp #8 ; zeilenende? 
33329 bne a353290 sı nein: -> 
rts 
a KEYWORT SUCHEN 


a3sssl Ida #h,a33166 
ldy #1, a33166 
sta #a35 
sty #a24 
ldy #0 
sty *all ; wortzähler 


anfang der keywort-tabelle 


a35344 iny 
a33245  jsr a1199 3 ==> 1da laS9),y: zeichen aus text 


- kode aus tabelle 

= is vergleich fortsetzen -> 
wortende? 

jer > 


sbe laS4),y 
beg 335344 
cmp #128 

bea a392384 


a WR a a 


333397 35357 1da ta34),y zeichen aus tabelle 
33337 bmi 333364 endemarke: -> 

3361 iny 

39362 bne a33357 s immer —> 

35364 

35364 al5Is4 iny 

3923653 inc *all ; wortzähler erhöhen 
35367 

33368 


i zeiger auf nächstes wort setzen 


ZEILE SUCHEN 


l,programmanfang 


Kiyuen 


-—-+ l1da ta95),y 
programmender > 


33404 


353405 

33406 I mom Ida (a95),y: hlzeilennummer 
334609 

35411 ; h,gesuchte zeilennummer 

35413 emp #al2n ; h,gelesene zeilennummer 

33415 bec 235448 ; gesuchte kleiner: > 

33417 beq als422 » gleicht -: 

354197 dey I yası 

35426 bne a33436 ; immer > 

TI422 

33422 a33422 dey 

33423 jsr al23s 3 ---> Ida (395),y: l,zeilennummer 
33426 sta #al26 

353428 lda #320 ’ l,gesuchte zeilennummer 

35430 camp *al28 ® i l,gelesene zeilennummer 

35432 bec 235448 ; gesuchte kleiner: => 

33454 bey a33448 s gleicht -#> 

33456 x 

33437 ı ---> 1da (a99),y: h,linkadresse 
33445 

35441 

A442 3 ---> \da (a95),y: 1,linkadresse 
35445 s Immer —= 


33447 
33447 a35447 clc 
35448 335448 rts 


flag "zeile nicht gefunden’ 


33449 

u NEW 

33449 

35449 275449 bne 335448 i kein trennzeichen folgt: fehler -" 
35451 a33451 1Ida #0 

33433 tay 

39434 sta (a43),y ; am programmanfang die 
33436 iny ; endemarke ’&@” anbringen 
33437 sta (a42),y 

33459 sta a747 ; trace abschalten 

35462 lda *a43 ı pragrammanfang 

35454 celc 

35465 adc #2 +2 

33467 sta %a45 ; = variablenanfang 

33469 lda *a44 

33471 adc #5 


33473 sta *ta4s 


334753 a33475  jsr 3359697 3} 77-5 programmzeiger rücksetzen 
35478 lda #98 s verhindert branch 

33488 

ae ECELR 

35490 

35490 a35486 bne a35564 ; kein trennzeichen folgt: fehler -> 
35492 a35482  jsr asSsıl ==> clall schliesst alle kanäle 
33485 ldy #8 

335487 sty *#al2l ; ds$ löschen 

35489 dey 

35499 sty al267 s on-error-flag rücksetzen 
35493 sty al264 ; l1,fehlerzeile f ’trap” 
33496 sty al265  Dasen 

35499 sty al263 ; fehlerkode 

35902 lda *a55 sı l,basic-obergrenze 

33504 ldy *a56 8 Bysan 

39306 sta *aSsl ‚ l,stringbereich-anfang 
35508 sty #a52 3 Hyseu 

33510 lda #1,21968 ı l,basic stack ende 

35312 ldy #h,21968 3 Ayına 

355314 sta #a124 ; 1,basic stack zeiger 
35516 sty #a125 5 Raum 

35718 lida *a45 ı l,variablenanfang 

35920 ldy *a46 E iiyzume 

Sug22 sta #347 ; l,arrays-anfang 

35524 sty *%a48 5 Hyumn 

33926 sta #349 ; l,variablenende 

339328 sty *a50 ’ Dis 

333930 ldx #3 

33332 a35332 1lda a39565;,% ’ pudef-zeichen 

33935 sta al235,% ; wiederherstellen 

33338 dex 

35339 bpl a33532 

35341 a35541 jsr 336017 3} 77: restore 

35544 335544 1dı #25 ı string stack zeiger 

353746 stx *a22 ;s rücksetzen’ 

33548 pla ; letzte rücksprungadresse 
33349 tay ; vom stack nehmen 

35958 pla 

35551 ldx #250 ; stack rücksetzen 

33393 txs 

35394 pha ı letzte rücksprungadresse 
35353 tya ; wieder auf stack legen 
33336 pha 

33357 Ida #0 

35559 sta a604 ; log adresse f ausgabe und 
33962 sta *alöd ı integer-sperre rücksetzen 
39564 a33364  rts 

33363 

33969 a33565 „by " „.$’ i zeichen f "pudef' 

35369 

339 Hmmm FROGZGR RUECKSETZEN 
33369 

33369 a33569  clc 

33378 lda *a43 ; programmanfang 

33372 ade #255 it 

33374 sta #a5? ; = programmzeiger 

33376 lda *a44 

35578 ade #255 

35588 sta ta6sd 


35582 rts 


35 EST 

35 

33393 a3358I jsr 244746 3 -7-> bereichsangabe analysieren 

337396 a33586 Idy #1 

33588 jsr a1233 3 =77> 1da (a95),y: h,linkadresse 

Bielei 2 bne a35399 

33993 dey 

35574 jsr al233 3 > Ida (a95),y: l,linkadresse 

35397 beq a33645 ; programmender -> 

35399 a35599 isr al6032 5 => stoptaste prüfen 

35662 jsr 236926 i =-> neue zeile 

39605 ldy #2 

33697 jsr al2E3 3 => Ida (a959),y: l,zeilennummer 
35616 tax 

33611 iny 

33612 jsr al2J3 ı 777> lda (a95),y: h,zeilennummer 
35615 emp *a2l ı endzeile 

35617 bne 335623 

35619 cpx *azı 

35621 beq a35625 erreicht: -> 


’ 
35623 ali623 bes a35645 ; überschritten: -> 
39625 a35623 isr a35648 ı > zeile listen 
35628 ldy #06 
33630 jsr al2I3 3 > Ida (a959),y: 1,linkadresse 
33633 tax 
33634 iny 
35635 jsr al233 3 => Ida (395) ,y: h,linkadresse 
33639 stx #395 ı l,laufzeiger 
33648 sta #396 5 Ryrsss 
33642 jnp a33385 3 77-> weiterlisten 
336453 
33643 a35645 imp 336924 3 ---> neue zeile 
33648 
33648 a356498 1Idy #3 
33639 sty *%a73 i y merken 
3356532 sty #315 ; textflag rücksetzen 
33634 jsr 242079 3 7775 zeilennummer ausgeben 
33637 lda #° 
33657 a33659 1ldy #a73 i y erinnern 
33661 and #127 ; bit 7 löschen 
3643 a3j66i jsr 237042 3 7-5 zeichen ausgeben 
35666 emp #°" 
35668 bne a35676 ; kein gänsefussı -" 
35678 lda #215 i textflag flippen 
39672 eor #255 
359674 sta *al5 
33676 a3367&6 iny ; zeiger in zeile erhöhen 
353677 beq 333645 ; zeile ohne ende: abbruch -# 
33679 bit #a83 ; help-listing? 
3I6B1 bpl a356ds ; nein: ==> 
33683 isr 246960 } =0-> blinkflag an fehlerstelle setzen 
686 a3ssd9h jsr al2Ias H > Ida (a95),y 
33697 beg a35771 ; zeilenende: -> 
3I6P1 
Zr KEYWORT ERZEUGEN 
AIorl 


35671 aF56al jmp (3774) 3 => keywort erzeugen (a33494) 


33694 
33696 
33693 
337089 
33702 
33704 
33706 
33708 
33709 
35712 
35714 
35716 
33717 
33729 
35720 
33722 
35724 
353726 
33726 
33727 
35729 
33731 
33731 
33732 
35734 
337236 
33738 
33748 
33742 
35744 
33745 
33747 
33747 
33738 
33752 
337534 
33756 
35737 
33737 
33761 
33761 
33762 
353764 
33766 
35769 
353771 
35771 
35772 


35772 3 


33772 
35772 
353774 
35777 
33798 
33780 
357853 
35786 
33789 
33792 


a33694 


a33720 


333744 


333747 


a33796 


ass76l 


a33762 


a35771 


a23780 


a3ss63 
#253 
a3s6h3 
*al 
a3s663 
#254 
ası7zl 
al233 
a353726 
*a73 


(2782) 


a39663 
#0 
a33762 


#234 
algss! 


*a73 
#h,al31ld& 
*a35 
#1,aI316& 
*a54 

#0 


a33762 
(a34) ,y 


*as4 
a33736 
*a35 


a35747 
a33744 


(a34),y 
233659 
a37042 


a33786 
a36128 
a35475 


a33492 
a1145 

a3al723 
ass128 
335904 


EFFEPPRERFF: 


kein 
pi? 


token: -> 


ja: -> 


tex 


jar > 
user-token? 


nein: 


Ida (a95),y: nächstes zeichen 


zeilenende: -> 


y mer 


ken 


> user-aufruf (a35720) 


keine user-verzweiqgung: fehler -> 


offset 

immer => 

offset zurücksetzen 

user-token 254 wiederherstellen 
immer > 

token als zähler 

y merken 

anfang der keywort-tabelle 


in laufzeiger 


zähle 


r dekrementieren 


kleiner als 128: -> 


zeich 


laufz 


kein 


en aus tabelle 


eiger erhöhen 


wortender = 


wortendes > 


zeich 


en aus tabelle 


wortende: => 


immer 


RUN 


zeile 


> zeichen ausgeben 


% 


nnummer folgt: -> 


> dir-modus, auto, meldungen aus 
> progzgr rücksetzen, clr 


> elr 

>» chrgot 

> goto 

- dir=-modus, auto, meldungen aus 
> hauptschleife 


33923 
33825 
35928 
33828 
35930 
33932 
33934 
35837 
33839 
35940 
35843 
33845 
35946 
337849 
35851 
33832 
33833 
35935 
33837 
33957 
33861 
33963 
35863 
35866 
35966 
33968 
33878 
338753 
33976 
33877 
353977 
33979 
35882 
35884 
335996 
33998 
33889 
35871 
33894 
35897 
33899 
339702 
33903 
33705 
33997 
337097 


3337983 
assaal 
a35804 


a35818 


a339976 


a33977 


(2776) 


a1137 
333977 
as3h032 
*a129 
a33918 
a37966 


x a1271 


#0 
al197 
a33828 
a35987 


a35863 


a1l189 
*a537 


a1189 
*as8 


+a57 
#337 
333795 
+asd 
a33795 


a34430 


+a59 
+a6d 
asa3 
asa4 


a3387&6 
a747 
a3s5907 
*3129 
a33903 


#971 
a37042 
a42975 
#93 
a37042 


#254 
a33770 
#205 
3337536 


PPEE?T) 


wu 


er 


IP PESPREEFTESRRBEVT EP FRE er 


PPPEET T EEPPEEST 


HAUFTSCHLEIFE 
---> hauptschleife (235798) 


> chrget 

> basic-routinen-aufruf 

> stoptaste prüfen 

run-modus? 

neins -> 

---> progrzeiger f cont u trap merken 
stack zeiger 

für trap merken 


---> Ida (a59),y: erstes zeichen 
endemarke: -> 
---}> auf ’:” prüfen 


run-modus? 
nein: -> 


---> Ida (a59),y: h,linkadr 


programmende: -} 


---> Ida (a59),y: l,zeilennummer 
merken 


---> 1da (a59),y: h,zeilennumner 


merken 


progrzeiger hinter zeilenkopf setzen 


und zurück zum anfang -> 
---} ready. 


l,programmzeiger 

Ayaas 

l,aktuelle zeilenadresse 
Runen 


endezeichen: -> 
trace eingeschaltet? 


nein: -> 
run-madus? 
nein: -> 


"eckige klammer auf’ 

---} ausgeben 

---> zeilennummer ausgeben 
"eckige klammer zu” 

---> ausgeben 


user-token? 


jat => 
’go’? 
jas -? 


Zar cmn #292 s ’mid$’? 

33713 begq 333947 Hi: 7 > 2 

33915 cmp #251 ı funktionstoken? 

359717 bes assral 

35919 cmp #163 

35721 bee 33592 

33923 cmp #213 

3592: bec 235981 ;ı ja: fehler -> 

33727 sbe #50 ; token um 50 vermindern 

33929 a33929 sec 

33730 sbc #128 

33932 bee a35994 ; kein token: ’let’ -> 

397234 asl a ı ergebnis verdoppeln 

33935 tay ; ergibt zeiger in adressentabelle 
339036 lda al3ss7+l,y ; adresse auf stack legen 

339737 pha 

357406 lda a23667,y 

SI94E pha 

33744 jmp al139 5 -0-> chrget, ’rts’ ruft routine 
339747 

35947 335947 1da #h,246683-1 s aufruf der routine "mid$(...} =’ 
33947 pha 

353950 ida #1,346693-1 

359752 pha 

339753 3235953  jmp all39 1 mem chrget 

35956 

35956 335956 jsr all39 > chrget 

35959 cmp #164 ı "to’-token? 

35961 bne 335981 ; nein: fehler -> 

35763 jsr a1139 ’ 

39966 jmp a36173 ; 

35969 

35969 ‚by 8 

33779 

33970 a35970 jsr ail39 3 7-> chrget 

33973 beg a3s98l i zeilenende: fehler -> 

33973 sec 

35976 jimp (a784) } 70: user-token bearbeiten (235979) 
39977 


35979 335979 bec 235953 
35991 a359Bl jmp a38049 


user-token bearbeitet: -> 
---} "syntax error’ 


339784 

353994 335984 jmp a3647& 1 er ek 

33997 

35987 235987  cmp #’: 

33787 bne a359sl ı kein trennzeichen: fehler -> 
srl jnp a33795 3 7-5 zurück in die hauptschleife 
35974 

TE u RELEDLEREEDLEERUTER RESTORE 

35994 

359974 a35994 beq 236017 ; ohne zeilennummer: -> 

359976 jsr 340417 } => zeilennummer holen 
3597997 sty #a20 ; l,zeilennummer 

BI-LEh sta #a2l 5 Hyuns 

BI-:1uR3 jsr 2353997 i 7--> zeile suchen 

BI-TEIET=) bes azößll ; gefunden: > 

FHaH8 jmp 236237 3 => "undefined statement’ 
Fan1l 

T6all aTsöll Ida #a95 ; l,zeilenanfang 

36013 ldy #396 5 Dyson 

36915 bes al6022 ; immer —> 


36017 
36018 
FAH2B 
34022 
36924 
360926 
36027 
34027 
TAHT1 
366032 
3932 
BIT ge 
S60I2 
F6H35 
34037 
6538 
F6n4l 
36042 
36044 
36047 
360949 
F6050 
36052 
36053 
36055 
RT= lu Feten) 
Bf-1:iete) 
36056 
36956 
36058 
IHHTB 
FHH58 
36058 
36957 
TaRs1l 
T6H9h3 
36065 
F6068 
36078 
36072 
36975 
36678 
36079 
36080 
36082 
360895 
36093 
36976 
36096 
36997 
36999 
369997 
36999 
36161 
36103 
36106 
36108 


ass617 


as6a22 


a36027 


assosl 


as36032 


a36044 


a36053 


a36058 
336059 


336078 


ERt-172 22) 


a26997 


a36#27 


*a653 
*ad6 


a63305 
asaazl 


a36035 
a65395 
336544 


#30 
a34435 


asbsasl 
*a129 
a36078 
a3s5ass 
*a57 
*a58 
ads 
asa2 


assa7b 
3633537 
13 19 

a34535 


a34430 


as6bos1 


ı #25 


a6d4 
asslil 
a54435 


"break" 


12] 


EFFESRRBEFF, 


er 


ie! 


STOP _TRAF 


---> stoptaste gedrückt? 
nein: > 


on-error-flag 

gesetzt? 

nein: -> 

---> stoptaste gedrückt”? 
ja: warten -F 


"break’ 
---; fehlerausgang 


sTuPr 


run-modus? 

nein: > 

---} programmzeiger speichern 
l,zeilennummer 

Hass“ 

l,zeilennummer f ”cont' 

Nasam 

rücksprungadresse vom stack nehmen 


’end’: -> 
---> meldung ausgeben 


> "in „..’ ausgeben, ready. 
---? ready. 

CONT 

kein trennzeichen: rts -} 
’can’t continue’ 

cont-sperre gesetzt? 


nein: => 
---: fehlerausgang 


Solll 
36114 
36116 
36118 
36121 
36124 
36126 
34128 
36130 
36132 
36133 
36135 
36137 
56148 


Z6140 3 


36148 
36140 
36142 
36145 
36145 
36148 
36150 
36151 
36153 
36155 
36156 
36158 
36140 
36161 
36163 
36165 
I6166 
36168 
34170 
36173 
36173 
36173 
36173 
36176 
36179 
36188 
36182 
36184 
361896 
36188 
36198 
3611 
36192 
36194 
T619& 
361978 
361997 
F62B1 
Ss201 
36203 
36205 
FbEnd 
362108 
36212 


56214 


assııll 


a36128 


ass146 


as62el 


as6205 


#5 
333077 


*asa 
(al24),y 


*a57 
(al24),y 


*#as8 
(a124),y 


*a37 
(al24),y 


#141 
(al24),y 
al145 


a356414 
a36289 


*a537 
a2 
*as8 
#a2l 
ass2ul 


*a59 
+ahd 
a36205 


a36205 


*a43 


ı #a44 


233373 


PPREEPFERFF, 


wa a en 


programmzeiger wiederherstellen 


zeilennummer wiederherstellen 


run-modus einschalten 
a:ı=& 
auto abschalten 


---> setmsg: meldungen abschalten 


GOSUR 


---: platz im basic stack? 


programmzeiger 


und zeilennummer 


und "gosub”"-token 

auf basic-stack legen 
—-} chraoot 

G60 TO 


---> zeilennummer holen 
=--} y ı= offset zum zeilenende 


aktuelle zeilennummer 


grösser als gerufene zeilennummer? 
Yarı = 


programmzeiger auf nächste zeile 


programmanfang 


---> zeile ab adresse (a,x) suchen 


; nicht gefunden: -> 


zeilenadresse 
| 
in programmzeiger bringen 


35226 
36222 
36224 
36226 
3622 

36227 
3622 

36227 
36229 
36251 
3623 

36236 
36238 
36239 
S6241 
36244 
36244 
36247 
364249 
36252 


our 


34233 


36233 


36257 
36258 
362568 
34262 
36263 
36269 
36268 
36278 
36272 
36272 
36272 
36272 
36275 
36276 
36277 
36279 
So28l 
36283 
36285 
36286 
36286 
36298 
36289 
36271 
36293 
36295 
36297 
36299 
36301 
36303 
38305 
36308 
36310 
36312 
36314 
36315 
36317 
36319 


al6z27 


a36305 


#141 
*a2 
334929 
336244 


a42857 
#5 
a42866 


(aö1),y 
*abd 


(a6l),y 
*a59 


(abl),y 
a32407 
(a61),y 
*#a57 


a36285 
*aB 
a36285 


>" 
ass30g 
a36297 


PT BEP ESPRBEPT 


IPPEPPREEFT, 


PA er", 


[PFESPRERFr 


run-madus? 
neins dir-modus, auto, meldungen aus -} 


RETURN 


"gosub’-token 

f stacksuche merken 

---> suche im basic stack 
gefunden: -> 

"return without gosub’” 


"undefined statement" 
---> fehlerausgang 


---> stackzeiger kopieren 
zahl der bytes im stack 


---} zeiger um y erhöhen 


programmzeiger 


zeilennummer 
---> rucksack 


DATA 


---> y ı= offset zum trennzeichen 


programmzeiger auf 
nächstes trennzeichen setzen 


trennzeichen 


zeilenendemarke 


---> lIda (a59),y: zeichen aus zeile 
endemarke: -> 

trennzeichen bzw. endemarke? 

jar > 


gänsefuss? 
nein: -> 
sonst trennzeichen unterdrücken 


u Ir 

36321 

36321 a36321 jsr 337676 5 777> ausdruck auswerten 
36324 jsr all45 3 > chrgot 

36327 camp. #137 ; "goto’-token? 

36329 beq a36336 3 jar > 

BI-RES} lda #167 ; "then’-token 

36333 jsr a39035 35 => syntax check 

36336 a36336 'lda *a97 ı exponent von fac 

36338 bne 236368 s bedingung erfüllt: -> 

343460 al6340 jsr a36272 5 => progrzgr auf trennzeichen 
36343 ldy #0 

36345 isr al189 3 > lda (a59),y: zeichen aus zeile 
365348 beg a36363  endezeichen: -> 

36350 jsr al139 3 => chrget 

36353 cmp #213 ; "else’-token? 

36355 bre a36340 ;s nein: -> 

363537 jsr al139 3 => chrget 

343569 jmnp 236368 va 

36563 

38363 mm REM, ELSE 

36363 

36363 al636) jsr 236289 3 77-3 progrzgr auf zeilenende 
BI-RT-T-) beq 336275 ; immer > 

36368 

36368 a36368 jsr all45 3 ==: chrgot 

36371 bes 336376 ; keine zeilennummer: -> 
36373 jmp a36173 3 ---> goto 

36376 

36376 a36376 jmp a35877 3 => raoutinenaufruf 

36379 

36379 I ON 

36379 

36379 a36379 jsr a460324 5 > byteausdruck auswerten 
36382 pha nächstes zeichen 

36393 cmp #141 iı "gosub’-token? 

36395 beq 236394 , jar —? 

36397 336387 camp #137 ; ”goto’-token? 

36399 begq aI6394 ja 

36391 jmp 238049 } => syntax error 

36394 

36394 a36394 dec *al0i ; parameter dekrementieren 
36376 bre a36402 iı noch nicht null: -> 

36398 pla ; nächstes zeichen 

36397 jmp a33por 3 > hauptschleife 

36492 

36462 a36462 jsr all39 3 -7-> chrget 

36405 jsr a36414 3 > zeilennummer holen 
36498 emp #’, ; folgt komma? 

36418 beq 236394 3 jet > 

36412 pla ; stackzeiger wiederherstellen 
36413 a36413 rts 

36414 

SsoHl4 Jrrrmese— ZEILENNUMMER IN ADRESSFORMAT WANDELN 
36414 

36414 a36414 1Idx #06 ; vorbesetzung 

36416 stx *a8 ; flag f ”zeilennummer vorhanden’ 
36418 stx #a20 ; l,zeilennummer 

36420 stx *a2l 3 Nuss 


36422 a36422 
36424 
36426 
36428 
36436 
36432 
36434 
36436 
36458 
36445 
36441 
36443 
36444 
36446 
36448 
36450 
36452 
36454 
36456 
36458 
36468 
36462 
36464 
36466 
36468 
36470 a36470 
36473 
36476 


36476 j=--- 


36476 
36476 a36475 
36479 
36481 
36485 
36485 
36488 
36498 
36491 
36493 
36494 
36497 
36498 
364997 
36502 
36504 
36505 a36505 
36597 
36518 
36513 
36515 
36517 
365197 
36320 
36522 
36524 
365253 
36323 a365325I 


a36413 
*a8 
#47 
*a7 
*a21 
*+a34 
#25 
a36387 
*a20 

a 

*as4 

a 

*a54 
+a20 
*+a20 
*a54 
*a21 
*a21 
*a20 
*azl 
*a20 
*a7 
*+a26 
a36470 


a38565 
*a73 
*a74 
#178 
a38035 
*al4 


*alS 
a37676 


a 
a376597 
a36528 


a36325 
a41632 
a3904& 
#0 
+al90 
(a73) ,y 


*all 
(a73),y 


341557 


PPRREFTT 


PPFELFPERPEEF ERBE 0. 


[PP EERPEEFTEERREEFT 


a eg en 


keine ziffer im accu: fertig -> 
flag setzen 
zeilennummer in a2@,a21 generieren 


zeilennummer > 63999? 
ja: fehler -> 


---> chrget 
---> zurück zum schleifenanfang 


E.E&% 


---} variable suchen oder anlegen 
l,variablenzeiger 

Aye.. 

’=’-token 

---> syntax check 

integer flag 


string flag 


---} ausdruck auswerten 
string flag 

setzt carry bei string 
---} variablentyp prüfen 
string: -> 


gks -> 

---> fac runden 

---> gk-integer wandlung 
integer in variable schreiben 


---> fac in variable übertragen 


; die kommentare beziehen sich auf die zuweisung n$ = a$. 
;s mit d(..) werden die deskriptoren, mit z(..) die zeiger bezeichnet. 


a36328  pla 


a36527 1dy *a74 ı h,z(ns$) 
cpy #4 i deskriptor in page 47 
bne a36649 s neins =# 
ia dan ia an an lach ZUWEISUNG AN TI%# 
jsr a406014 3 =: frestr 
enp #6 s stringlänge = 6? 
bne alsda4 s nein: illegal quantity -> 
ldy #0 
sty #a97 ; fac exponent 
sty #alb2 ı fac vorzeichen 
a26548 sty #allE 
36550 jsr a36596 ; ziffer 
Bi-}eieil jsr a41314 ; ——) fac 19 * fac 
36336 inc #alll ‚ stellenzähler erhöhen 
36558 ldy *a113 
36560 jsr 336596 } 777: prüfen ob ziffer 
36563 jisr a41617 I => arg ı= fac 
36366 tax 
36367 beq a36574 ı fac =: 5 
36567 ins 
36378 tya 
Ei-rZ1 jsr a41325 3} ==: fac ı= fac targ 
36574 a36574 1Idy #a113 ı stellenzähler 
36576 iny ı erhöhen 
36577 cpy #6 ; schon 6 stellen? 
364379 bne a36548 s meins =" 
Sesel jsr 341314 mer fac ı= 10 * fac 
365894 jsr a41767 5 ===> gk-integer wandlung 
36587 ld *a100 
345897 ldy #399 
Bi. 21 lda *alol 
36593 inp 365499 } zum: settims uhr stellen 
36596 
36596 al6596 jsr al206 H Ida (a34),y 
36599 jsr all37 yo. ziffer? 
BI-T-IR3 bec al66a7 ’ ja —> 
Sbhn4 aF66n4 imp a39ı196 I => "illegal quantity’ 
36657 
36607 a36607 sbc #47 s 47+1 (carry = &!) subtrahieren 
36669 jnp 341994 3 ==> ergebnis nach fac und arg 
BI-1-P Wr 
Sale ereree 
Bir 
Tssl2 als6sl2 pla ı h,adr (a$) 
BI-T-2 63 iny 
36614 al6614 cmp *adz ; h,stringbereich-anfang 
A66lh bec a36642 s ab nicht im stringbereich: -> 
36618 bne a36628 
366208 dey 
36621 isr al244 3 => Ida falüß),y: L,adr (a$) 
36624 cap *asl ı l„stringbereich-anfang 


T6626 bee ai6642 s at nicht im stringbereich: -" 


36628 
36630 
36632 
36634 
36636 
36638 
36648 
36642 
36644 
36646 
36649 
36649 
36651 
36654 
36656 
36658 
36659 
36660 
36663 
36665 
36667 
36669 
36671 
36672 
36672 
36672 
36672 
36674 
36677 
36686 
36682 
36684 
36686 
356688 
366F1 
36695 
36695 
36698 
36700 
36792 
36794 
36706 
36708 
56718 
36713 
36716 
36718 
36720 
36722 
36724 
36725 
36727 
36729 
36731 
36733 
36735 
36737 
36748 
36742 


as6628 


a36642 


a36649 


a36672 


a36702 


a36729 


ldy 
cpy 
bcc 
bne 
lda 
cmp 
bes 
lda 
lIdy 
jmp 


ldy 
jsr 
cmp 
bne 
pha 
dey 
jsr 
emp 


a36702 


#2 
al244 
*a123 
a36614 


a1l244 
*a122 
asb61l2 
*al21 
a36612 


a39963 
*alll 
*all2 
a40106 
#1,a97 
#h,a97 
*a80 
*a8l 
*as4 
*as3 
a40106 
a36764 
a367297 
#0 
*a73 
(a34),y 


*a74 
(a34),y 
*a73 
*as4 
*a74 
*a3s 
a36764 
a36751 


EPPEPRPEEPT| 


a u 


un 


ILLEEPPEEFT 


.. 


. 


Pr 


h,z (a$) 
h,variablenanfang 
d(a$) nicht in variablentabelle: -> 


1,2 (a$) 


dia$) nicht in variablentabelle: -> 
l,z(a$) 
Nsasa 


=) 


---> lda (alßß),y: h,adr (a$) 
= h,adr (ds$)? 


x 


nein: -> 


---> l1da (alßß),y: l,adr (a$) 
= ],adr (ds$)? 

nein: -} 
länge von ds%$ 
= 


stack bereinigen 


STRING KOFTITEREN 


---> lda (al@®),y: länge von a$ 
---> platz reservieren 

1,2 (a$) 

Ayaa« 


---> a$ in stringbereich kopieren 
1,2 (a$) 

Dyues 

---> d(a$) aus string stack nehmen 


---; d(a$) aus string stack nehmen 
---} prüfen, ob r-zeiger vorhanden 
nein: -> 


z(n$) 
in r-zeiger kopieren 


---> alten inhalt von n$ löschen? 
nein: -> 


36743 lda #255 } r-zeiger von n$ := länge, 253 
36745 sta (al4),y 

36747 dey 

36748 txa 

36749 sta (a34),y 


36751 236751 1dy #2 
36753 a36753 Ida #386 


36755 jsr a1172 3 => Ida (a),y 

36758 sta (a7) ,y ; d(n$) := d(a$) 

36760 dey 

36761 bpl a36753 

36763 rts 

36764 

Re STRINE AUF R=-ZEISER PRUEFEN 
36764 

36764 a36764 1Idy #0 

36766 jsr al206 3 => Ida (aS4),y 

36769 pha 

36779 beg a36829 ; stringlänge = 6: -> 

36772 iny 

36773 jsr al200 3 => Ida (a34),y: 1l,stringadresse 
36776 tax 

36777 iny 

36778 jisr al2a6 3 ==> Ida (a34),y: h,stringadresse 
36781 cmp *a56 ; string oberhalb der 

36783 bec 236791 ; basic-obergrenze? 

36785 bne a356829 

36797 cpx *#a53 

36789 bes a36829 ı ji» 

36791 a36791 jsr a1208 3 =: Ida (al4),y: h,stringadresse 
36774 emp *a52 ; string unterhalb des 

36796 bcec 236929 ; stringbereichs? 

36798 bre a36804 

36898 cpx #astl 

34802 bec 336829 3 jası => 

36904 2368064 cmp *a123 ; string identisch mit ds$? 
36906 bre a36812 

34808 cpx *a122 

F6810 beq 336829 3 jas => 

36812 a36812 sta *#a34 ; zeiger (a34,a35) 

36814 sta *#a33 ; auf r-zeiger setzen 

36815 pla 

36817 tax 

36818 cle 

368197 adc #234 

369821 sta #334 

36823 bee 236827 

36925 inc #235 

36827 a36827 sec s flag f "r-zeiger vorhanden’ 
36828 rts 

36829 

36829 336829 pla 

FO cıe s flag f "kein r-zeiger” 
BI-I=RS1 rts 

34832 

u ———— FRINT# 

36832 


36832 a36832 jsr a36938 H 
36835 jmp a37118 b 


S48582 


Fu8I8 alsg78 jsr a40324 } =7-> log adresse holen 
36841 beq as6B48 ‘ trennzeichen folgt: -> 
36843 lda #°, 

36945 jsr a33035 } ==> syntax check 
36948 336848 php 

36849 stx *a1? : i/o-kanal 

Fast jsr 2429053 3 > 

36854 plp 

36935 imp as6964 ’ 

36958 

SOSE Veen 

36858 

3649858 a36858 ist 3370073 H > string ausgeben 
36861 a36861 jsr all45 3 => chrgot 

364964 

Be ee FRINT 

36964 

36864 a36864 hbeq 336926 ; trennzeichen folgt: -> 
F6866 emp #251 ;ı using’ -token? 

36948 bne 236973 3; neins -> 

36970 jmp a44791 I =-> print using 

36873 

36973 a36973 beq a36942 

36875 cmp #163 } "kab("-token? 

36877 beq a36757 ; jan 

36879 cmp #166 ; "spec (”-token? 

681 elc 

36882 beq 336957 3 jar > 

36884 cmp #’, 

36885 beq a36943 

36888 camp #’5 

36898 beg a36986& 

36892 jsr a37676 } 7m: ausdruck auswerten 
36895 bit *al3 ; string? 

36897 bmi a36858 H = 

368997 jsr a42095 H : fac in zahlenstring wandeln 
36902 ijisr a39796 } string übernehmen 
36905 jsr a37003 i ‘ string ausgeben 
36908 jsr a370360 } ==> "kursar nach rechts’ ausgeben 
For1l bne a36B6l s immer —> 

36913 

Bor een EINGABEFUFFER ABSCHLIESSEN 
36913 

IH91T a36913 Ida #9 ; endemarke 

36915 sta asi2,x ı in puffer schreiben 
36918 ldx #1,a512-1 

36920 ldy #h,aSsi2-1 

36922 lda *a1l? ; i/o-kanal 

36924 bne 336942 ı nicht tastatur: - 
34926 a36926 Ida #13 ; cr-kode 

36928 jsr a37042 } =-> ausgeben 

36731 bit *al9 ; log adresse 

BI-V ERS bpl 236740 i kleiner als 128: - 
36935 Ida #16 ı 1f-kode 

36937 jsr a37942 3 77-> ausgeben 


36940 a56948 eor #255 
36942 236942 rts 


8 


369789 
37098 
37900 
37000 
37005 
37003 
37006 
37087 
37909 
37016 
37811 
37013 
37016 
37019 
37926 
37022 
37024 
37027 


336949 


a236957 


as6981 
336982 
a36993 


336986 


336992 


a37000 
337083 


a57018 


a65320 


365320 
*a7 
a40321 
#’) 
a36992 


a36992 


*a9 
536986 


a36995 


'al139 


a26873 


339049 


a37930 


a39796 
a4dn14 


#0 


a36942 
al2öB 
a37042 


#15 

a37510 
a36940 
a37010 


Pr 


un SEE As Ma 


EPPEEPPEEFT: a wu 


ur 


Ka hr ar a 


ZEHNERTAB 


---> plot: kursorspalte nach y 
von kursorspalte 


so oft 18 subtrahieren, 

bis ergebnis negativ. 

negieren des ergebnisses ergibt zahl 
der schritte bis tab-pasition 

immer -> 


TAR, 5PE 
tabs carry = 1, spci carry = 


---> plot: kursorspalte nach y 
kursorspalte merken 

---: parameter holen 

nächstes zeichen ')'? 

nein: syntax error -> 
tab/spc-flag 

Sper =? 

parameterwert 

- kursorspalte 

negativ: fertig -> 

differenz als zähler verwenden 


und so oft "kursor nach rechts’ 
bis zähler null 

---> chrget 

==) print 


---> "syntax error” 


---} ”kursor nach rechts’ ausgeben 
immer -> 


STRING AUSGERBEN 


---> string übernehmen 
=} frestr 
stringlänge 


string fertig ausgegeben: -> 
---> Ida (a34),y: zeichen aus string 
---> ausgeben 


cer-kode? 

nein: -> 

---> zeichen invertieren 
---> nächstes zeichen 


37939 
37836 
37030 
37032 
37934 
37026 
37937 
37939 
37040 
77042 
27045 
37047 
37848 
37048 
37048 
37048 
37051 
37053 
37055 
37957 
37037 
37861 
37064 
37067 
37067 
37070 
37073 
370753 
37078 
37090 
37093 
37935 
37097 
37987 
37092 
37094 
37997 
37997 
z7ı01 
37102 
37102 
37192 
37182 
37105 
37107 
37110 
37112 
37115 
37118 
37120 
37123 
37125 
37127 
37128 
37128 
37128 
37128 
37120 
37132 
37135 
37137 
=7148 


a37030 


«37034 


a37937 


a37049 
a37042 


a37048 


337067 


a37083 


a37102 


a37118 
a37120 


a37128 


*al9 


#7? 
adzarl 


#233 


a37067 
#249 
a37583 
alls9 
a37883 


a1139 


- 240324 


#, 
a39935 


ı *a17 


a42918 


x #1,asi12+l 


#h,a512+1 
#0 
a5si12+1 
#64 
337208 


{ #219 


as7120 


240324 
#", 
a3gaoTT 
*a19 


ya 
a37143 
a37965 
#5 

a39035 
a37003 


. 


PTEERPEEFT) u. 


.. 


ZEICHENAUSGABE 


i/o-kanal 
tastatur: -> 


’kursor nach rechts’ 


=--} ausgeben 


GET 


---} fehler wenn direktmodus 


"key’-token? 


---+ chrget 


? 


---: chrget 
---* log adresse holen 


---> syntax check 
i/o-kansl := log adresse 
---} chkin 


endemarke 

hinter erstes Fufferbyte 
flagwert f ’get’ 

---} zeichen in variable bringen 
i/o-kanal 

nicht tastatur: -> 


INPUT# 
---> log adresse holen 


---> syntax check 
i/o-kanal := log adresse 
-—--) chkin 

---} input 

i/o-kanal 

---> clrch 

i/o-kanal := tastatur 


INFUT 


---> fragestring übernehmen 


---> syntax check 
---> string ausgeben 


37143 
37146 
37148 
37151 

37154 
37156 
37158 
37161 

37163 
571659 
37168 
57171 

37171 

37174 
37176 
37178 
37188 
37193 
37186 
37196 
37198 
37196 
37193 
37196 
37199 
37199 
37199 
37199 
37201 
37203 
37205 
37296 
37208 
37218 
37212 
37214 
37217 
37219 
37221 

37223 
37225 
37227 
37229 
37231 

37232 
37234 
37237 
37239 
37241 
37243 
37245 
537247 
37249 
37252 
37253 
372393 
37257 
37257 
37260 
372653 
37265 
37267 


a37143 


as7151 


a37171 


a3718& 


a37196 


a371997 


a37206 
a37208 


a372497 


a37257 
a37269 


a37118 
a36272 


a512 
337206 
*alF 
a37151 
336295 
a36275 


*al9 

a27196 
a37040 
337034 
a3490&8 


a37223 
all45 
337288 
*al7 
a37269 
*a128 
#249 
a37257 
a42927 


a37249 
a37260 


342927 


ı a512 
ı #1,a512-1 


#h,a512-1 
337284 


DL EERPEErT 


PTESPFREPT: 


Eu) a ARE ER a A a AR aaa DE 


---> fehler wenn direktmodus 


---} "?” ausgeben, eingabeschleife 
i/o-kanal 

tastatur: > 

---; readst 

timeaut? 

nein: -> 

---> clrch, tastatur einschalten 

> progrzgr auf trennzeichen 


erstes zeichen im puffer 
kein endezeichen: -> 

i/o-kanal 

nicht tastatur: -> 

---> nächstes trennzeichen suchen 


---} progrzeiger auf trennzeichen 


i/o-kanal 

nicht tastatur: -> 

---} °?°’ ausgeben 

---> "kursaor nach rechts’ ausgeben 
---> eingabeschleife 


READ 


l,data zeiger 
Nyszs 
flagqwert f read’ 


flagwert f "input 

eingabeflag 

l,eingabezeiger 

hyrss 

---> variable suchen oder anlegen 
l,variablenzeiger 

PR 


programmzeiger 
retten 
und durch eingabezeiger ersetzen 


=--+ chrgot 

kein endezeichen: -> 
eingabeflag 

nicht "get’: -> 
letztes token 

’key’”? 

neins -> 

=} getin 
tastenkode eingegeben? 
nein: warten -> 

jatı -> 


---> getin 
kode in puffer 


immer -> 


37269 237269 
a37274 
a37281 


37284 337284 


37288 a37288 


37308 
37308 3372308 
37310 
37312 
37314 
37316 
37318 
37320 


372344 237344 


2 a37352 


a37371 


a37375 


a37379 
a37381 


a37274 
337440 


*al9 

a37281 
a37040 
337186 


{ #359 


+asd 
all3? 
*al3 
a37344 
*a17 
a37308 


{ #259 


#0 
*a7 
a37320 


*a7 
ya 
a37321 


a37352 


341955 
*al4 
a36505 


> a7 2891 


*al9 
a37384 


: #24 


a34435 


wen 


---> fortsetzung "read’ 


i/o-kanal 
nicht tastatur: -> 
---} °?7° ausgeben 


progrzgr vor eingabepuffer setzen 
---> chrget 
stringvariable? 
nein: -> 
eingabeflag 
nicht ’get’: —> 


progrzgr inkrementieren 


l,progrzgr 


Hyaan 
um carry erhöhen 


string übernehmen 
> progrzgr hinter string setzen 
> deskriptor in variablentabelle 


---> string-gk-wandlung 
integer-flag 

---> fac in variable übertragen 
==) chrgot 

trennzeichen: -# 


kommas > 
eingabeflag 
"inpuf”; => 
’read’: -> 
i/o-kanal 

nicht tastatur: -> 
"type mismatch’ 
immer > 


i/o-kanal 
tastatur: -> 

"file data’ 

---:> fehlerausgang 


» °P, ”kursor nach rechts’, eingabe 


Seite 38 >7>3584 
37384 a37384 jsr a43339 3 > meldung ausgeben 
37387 „by ”?redo from start’ 13 8 
37495 lda asa3 ; zeilenanfangsadresse 
37468 ldy 3664 
37411 sta #357 ;s in programmzeiger bringen 
37413 sty #248 
37415 rts 
37416 
37416 a37416 1Id« #1 
37418 a37418 Ida #259,x ; programmzeiger 
37420 sta #a67,x ; in eingabezeiger bringen 
37422 lda #375,x ; und ausgangswert wiederherstellen 
37424 sta #339,x 
37426 dex 
37427 bpl a37418 
37429 jsr ail45 3 => chrgot 
37432 beg 337492 ; trennzeichen:-> 
37434 ijisr a39aF3 3 —-> chkcom 
37437 jmp a37214 }ı ==> nächste eingabe 
37440 
37440 a37446 jsr 216286 3 0-3 offset zum trennzeichen nach y 
37443 iny 
37444 tax ; zeilenende? 
37445 bne 237468 i nein: -> 
37447 Ide #13 ; "aut of data” 
37449 iny 
37458 jisr al189 3 ——-> Ida (a59),y: h,linkadresse 
37453 beq a37563 ; programmende: fehler -> 
37455 iny 
37456 isr a1189 ; 77: Ida (a59),y: l,zeilennummer 
37459 sta #a63 ı l,data zeilennummer 
37451 iny 
37462 isr a1189 s =—} Ida (a59),yi Dyes. 
37465 iny 
37466 sta #a64 ; h,data zeilennummer 
37468 a37468 jsr a36275 3 =--> progrzgr um y erhöhen 
37471 jsr al145 $ —? chraot 
37474 tax 
37475 cpx #151 i "data’-token? 
57477 bre 237440 ;ı nein: weitersuchen -> 
37479 imp 337288 3 -—--> dateneingabe fortsetzen 
37492 
37482 337482 1da #367 ; eingabezeiger 
37484 ldy #a6B 
37485 ldx *a17 ; eingabeflag 
37488 bpl 237493 s nicht ’read’: -> 
37496 jimp 234627 euer 
37493 
37493 a37493 1ldy #8 
37495 isr a33109 3 =7-> l\da (a6&7),y: nächstes zeichen 
57498 begq a37323 i endezeichen: -> 
37500 lda *a19 s i/o-kanal 
37902 bne 337523 ; nicht tastatur: > 
37504 isr a63339 i =7-:> meldung ausgeben 
37507 ‚by "?extra ignored’ 153 6 
37523 a37323 rts 


37600 
37603 
37684 
37685 
37606 
37667 
378618 
37612 
37613 
37615 
37617 
37619 
37628 
37623 
376253 
37626 
37628 


a37330 


a37345 


a37377 


as37620 


a37345 
#253 


a37330 


all}? 
a39565 
*a73 
*a74 
#129 
*a2 
a34929 
337366 


ı #10 


a34435 


a42857 
*a6sl 


#3 
*a62 
a37379 


a41365 
#8 
(adl),y 
*al02 
# 
(a61l),y 


(adl)ıy 


a406053 


a4ıSöl 
xacl 


c #7 


*a62 
a37628 


a416976 
#8 


(a6l),y 
ar7330 


er 


variablenname folatı -=> 


bytes im basic stack 


---> (a124,3125) um y erhöhen 
---> chrgot 


> chrget 

> variable suchen oder anlegen 
l,for-next variablenzeiger 

hass 

"for”’-token 

f suche im basic-stack speichern 
---} daten im stack suchen 
gefunden: -> 

’'next without for’ 

---> fehlerausgang 


---> (al24,al25) ı= (a61l,a52) 
{a,y) aus stepwert setzen 


---} step-wert nach fac 


vorzeichen 
in vorzeichenbyte von fac 


---> variablenwert zu fac addieren 


---> fac in basic stack übertragen 
(a,y) auf endwert setzen 


---: variablenwert mit endwert vergl 


endwert überschritten? 
jaı => 


37700 
37702 


237657 


a376693 


37665 
a37568 


a37671 


2 837682 


837687 


3537782 


#17 
(a61),y 
*a37 


(a6l).y 


ı Kaas 


(a6l),y 
+a5B 


(asldıy 
*a37 


x #40 
837671 


a37708 


+ 
ı *a77 


alla 


u 


schleifen-anfangsadresse 
in programmzeiger 


anfangszei lennummer 
als aktuelle zeilennummer 
speichern 


FRMNUM 
---> ausdruck auswerten 
CHENUM 


prüfen ob numerisch 


CHESTR 


prüfen ob string 
string flag 


’type mismatch’ 


"formula ton complex" 
_-; tehlerausoang 


FRMEML 


programmzeiger zurücksetzen 


ı platz im stack ausreichend? 


= 


3 


Ei 


bi 


meint —F 
---; nächstes qlied auswerten 
operator-maske 


= chrgot 


a37703 


ı nein: => 


ı operator-masker 
Bo = “ Bee sonst 
1 2 4 3 & 2 


LA 


= ehrget 


onerabor-maske = 57 
meins = 
Se de and. Dr 


Bit, 


sı nein: => 
» string? 


bne a37750 ı nein => 

jmp a39898 } =: string-verkettung 
37758 a37759 ade #239 ; token wiederherstellen 

sta #a54 ı offset-zeiger erzeugen 


37758 a37758 ; oberster wert im stack 


37759 } © pria-flag der operation? 
17762 ı nein: =" 

37764 3 => fehler, wenn nicht numerisch 
37767 a37787 

37768 a37768 jsr a3790% 3} => rautinen-aufruf 

37771 nla 

37772 ldy #375 

37774 bpl a377997 

37776 

37777 77868 

377797 bne a37879 

37781 

37781 a37781 1sr *#all ı stringflag rücksetzen 
37793 txa ı operator-maske 

37784 rol a 

37785 ldx *a597 ı programmzeiger 

37787 bne 237791 um 1 schritt zurücksetzen 
37789 dec *a60 

37791 237791 dec *a57 

37793 ldy #27 ‚ offset des prio-flags von ü, =, 
37795 sta #377 

37797 bne a47758 s immer > 

37799 

37799 237799 cmp a33875,y ; vergleich mit prio-flag 
37862 bes a37879 


37804 bee a37767 


37806 
37867 


37927 


37831 


37962 
378653 
37885 
37967 
37868 
37878 
37872 
37874 
37877 
37879 
37996 
37881 
37883 
37884 
37896 
37897 
37889 
37890 
37892 
37893 
37895 
37896 
37898 
37999 
379701 
37903 
37905 
37997 


a37805 


a37822 


337925 


a37865 


337868 
a378970 


a37877 
a37879 


a37905 


lda 
pha 
lda 
pha 
jsr 
lda 
jmp 


Imp 


lda 
ldx 
tay 
eie 
pla 
ade 
sta 
pla 
adc 
sta 
tya 
pha 
isr 
Ida 
pha 
lca 
pha 
lda 
pha 
lda 
pha 
Ida 
pha 
jnp 


ldy 
pla 
beg 
cmp 
beq 
jsr 
sty 
pla 
lsr 
sta 
pla 
sta 
pla 
sta 
pla 
sta 
pla 
sta 
pla 
sta 
pla 
sta 
eor 
sta 
Ida 
rts 


a33975+1,y 


a37925 
*a77 

337687 
a393949 


*alß2 
a3397I,y 


a41632 
*a181 


*a3108 
+97 
+398 
*a97 
234) 
259 
a37995 
#108 
a37877 
a37653 


*3753 


a 
*#al9 


*a105 
*ald6 
*3107 
*ald8 
*a1597 
*alld 
*a1l02 


*alll 
*a97 


; h,rautinenadresse 


3 Iyman 


} ==> operanden auf stack 
; operator-maske 

} => zurück an den anfang 
3 777: "syntax error” 


i vorzeichen von fac 
; prio-flag 


;s rücksprungadresse 


; in vektor (a34,a35) bringen 


3 > fac runden 
; und auf stack legen 


3 => rücksprung 


3} =7-> fehler, wenn nicht numerisch 


sı arg vom stack holen 


; vorzeichen von arg * fac 
; exponent von fac als null-flag 


as7Fa8 jmp (a77d) 
37911 
37911 337911 Ida #8 
37713 sta #all 
37915 a37915 jsr all3? 
37918 bes a37923 
37920 337920  jmp 341855 
37923 
37923 a37923 jsr a39714 
37926 bee a37931 
3792 jmp azgn61 
s7931 
37931 a37931 comp #255 
37933 bne a37958 
37935 lda #1,237945 
37937 ldy #h,237945 
37939 jsr 241505 
37942 jnp al137 
37945 
37945 a37945 .by 138 77 15 218 161 
37950 3 
37950 a37950  cmp #". 
37952 beq 237926 
37954 cmp #171 
37956 beg a39054 
37958 cmp #170 
37946 beg a37915 
37962 cap #°" 
37964 bre a37981 
37965 a379&& Ida #359 
37968 ldy #a60 
37979 adc #0 
37972 bee a37975 
37974 iny 
37973 a379753 jsr a39795 
37978 jmp a4h370 
37981 
37981 a37981 cmp #168 
37983 brie a3B67 
37985 ldy #24 
37987 bne a38ab56 
37989 
a ee 
37989 
37989 a37989 jsr a39046 
379972 Ida #alßl 
37994 eor #255 
37996 tay 
37997 lda #alöa 
37999 eor #255 
TRA01 aFsanl jsr a39570 
38004 jnp 341673 
38997 
38007 a33067  cmp #165 
380697 bne a3ßß14 
za jnp a39645 
39014 
38014 a38814 cmp #180 
33016 bee aS8B21 
39018 jmp a38297 


gu; Rn 


0. 


---> eval (a57711) 


stringflag löschen 
===} chrget 

keine ziffer: -> 
-—--: zahl nach fac 


---: buchstabe? 

nein: > 

---> variable auswerten 
pi? 

nein: > 

---> pi nach fac 


---> chraet 


pi 


programmzeiger 


um 1 erhöhen {carry = 1!) 


string übernehnen 
---} progrzgr hinter string setzen 


’not”’-taken? 
nein: -> 
prio-flag offset 
immer > 


NOT 


---> integer-gk wandlung 
integer in fac invertieren 


= fac vorbereiten 
> integer-gk wandlung 


”fn’-token”? 
nein: -> 
-—> fn 


funktionstoken? 
neins -> 
---> funktionsauswertung 


a38021 jsr 

jsr 

27 a380237  1Ida 
38529 „by 
3020 a380I0 Ida 


38 44 
FBOER #, 
] #0 
sta #al20 
jsr »al189 
cap tal2o 
bne 239649 
imp all3? 
a2385479 Id #11 
jmnp a24435 
as39a54  Idy #21 
al8656 pla 
pla 
jmp 337768 
ea ueneusenenenuue 
a3gtal jsr 338565 
sta #ald6 
sty #alül 
ldx *a67 
ldy *a70 
lda *al} 
begq a39145 
Ida #8 
sta #all2 
39090 epx #’t 
38082 bne a39120 
38084 cpy '#"I 
38086 bne a38205 
38088 lda #alön 
390908 cmp #1,a1186 
33092 bne a3820%4 
39094 Ida *alöl 
38096 cmp #h,a118& 
38098 bne a38206 
39100 jsr a38193 
38103 sty #394 
38145 dey 
38106 sty #all3 
38108 ldy #6 
38118 sty #393 
38112 ldy #36 
38114 jsr a42234 
38117 ijmp a397792 
38120 
38120 a3al20 cp #’d 
38122 bne a39206 
38124 cpy #5 
38126 bne 2393206 
38128 jsr a38138 
38121 lda *al22 
38133 ldy #a123 
38135 imp a39796 


pPrn pers 


wo 


auf "c" 


priten 


> ausdruck auswerten 


zeichenkode zwischenspeichern 
---: Ida (a59),y: zeichen aus programm 


vergleichen 


s ungleich: fehler -> 


---> chrget 


"syntax ’ 
---: fehlerausgang 


prio-flag offset f zeichenwechsel 


---> zurück in die auswertung 
VARIABLE AU 


---:> variable suchen oder anlegen 


l,variablenzeiger 
My 
variablenname 


string? 
nein: ==> 


rundungsstelle von fac löschen 


variable ti$? 


neins ==> 


zeigt variablenzeiger 
auf systemkonstante 9° 


nein: ==> 

---> rdtim zeit mach fac 
= 9 

= 255 


» zeit in h, min, 
> str$ 


variable ds$? 


---> ds$ einlesen, wenn nicht gültig 


neins => 
l,adr (ds&#) 
Hauses 


--- > string übernehmen 


AUSWERTEN 


SWERTEN 


s umrechnen 


38138 a38138 Ida *#al2l ; länge von ds$ 

38140 bne a38206 s nicht null: ds$ gültig -> 
38142 jmp a52431 } => ds$ einlesen 

39145 

38145 a38145 bit *a14 ; integer? 

39147 bpl a38164 ı nein: -> 

38149 ldy #8 

38151 jsr a1244 5 => lda (al@0),y: h,integer 
38154 tax 

39155 iny 

38156 jsr al244 ı -07> Ida (al@ß),y: l,integer 
38159 tay 

38150 txa 

38161 jmp a3aaa1 3 ==> integer-gk wandlung 
39164 

38164 a38164 Ida *#aldi ; zeigt variablenzeiger 
38166 cmp #h,a1i18& s auf all86 (konstante 9)? 
38168 bne 338290 

398170 lda *a1h9 

38172 cmp #1,a11895 

38174 bne a39296 ; nein: -> 

39176 ep #t ; variable ti? 

38178 bne 338287 

78180 epy #’i 

38192 bne 239290 ;ı nein: -" 

38184 isr a38193 3 >? zeit nach fac 

38197 tya 

38188 ldx #160 ; exponent 

381908 jmp a41684 3 => fac normalisieren 
38193 

38193 a38193 jsr 365902 3 -7-> rdtim: zeit nach (a,x,y) 
391965 stx *alß0 ; und nach fac übertragen 
33198 sty #297 

382068 sta *aldl 

398202 ldy #& 

39204 sty #398 

39206 alB206 rts 

392607 

39207 338207 cpx #"s ; variable st? 

38209 bne a33221 

38211 cpy #’t 

38213 bne a38298 ;s nein: = 

38215 jsr a6534653 3 77-> readst 

38218 jimp a41665 5 ———-> byte-gk wandlung 
39221 

39221 a538221 cpx #’d ; variable ds? 

39223 bne 2393263 

38225 cpy #"s 

38227 bne a3829%& s neins -" 

39229 jsr a383138 3 70-> ds$ einlesen, wenn ungültig 
39232 ldy #8 

39234 Ida #3122 

39236 jsr all72 3 => lda (a),ys 1. fehlerbyte 
3823 and #15 ; unteres halbbyte isolieren 
389241 asl a ı#2 

38242 sta #al5 

38244 asl a 

38245 asl a ; 1. fehlerbyte * 8 

39246 adc *al5 ı + 1. fehlerbyte # 2 

38248 sta #al3 s ergibt zehnerstelle von ds 


33316 
393318 
38326 
39322 


39324 


393497 
39350 
39333 
38354 
39335 
393356 
383537 
38358 


a39297 


338387 


a38324 


al263 
a41665 


#al00 
*a101 
a41305 


#213 
339589 
#263 
338307 
#1 


al139 


ı #211 


a39324 


x #203 


a38361 


ı #200 


asg3sl 
a33050 
a37676 
a38033 


337658 


#211 
a38386 


*ald1 


+a160 


a46324 


339369 


PREaE?T WERE” 


.“ uw. 


PT BERPBEFT BERREErT 


PREEEP FEPRRBeE 


Pr 


---} Ida (a),y: 2. fehlerbyte 
unteres halbbyte isolieren 

+ zehnerstelle ergibt ds 

---> byte-gk wandlung 


variable er oder el? 
nein: -> 


err => 


nicht el: -> 
l,fehlerzeilennummer 
Hase» 

---} integer-gk wandlung 


---: byte-gk wandlung 


l,variablenzeiger 
Hanna 
---} variablenwert nach fac 


FUNETION AUSWERTEN 


token > 2127 

ja: keine funktion -> 
token { 2837 

ja 

token Z#7 auslassen (’ga’} 


===} ehrget 
’instr"? 
jas -> 


"left$’, ’mid$’, "right$’? 


> 
prüft ob ’(’ folgt 

> ausdruck auswerten 
---> chkcom 
---} chkstr prüft ob string 


’instr’? 
ja: -> 


h,zeiger auf string deskriptor 


Tem 


---> parameter holen 


---> funktionsroutine aufrufen 


39361 
39364 
38365 
38366 
39368 
39369 
39370 
38373 
393753 
38378 
38396 
39393 
38386 
39386 
39387 
39389 
398392 
38392 
398372 
38392 
39394 
38395 
38395 
39395 
38395 
38397 
383997 
38482 
38494 
394058 
58488 
39418 
38412 
39414 
39417 
398420 
38422 
39424 
39426 
38428 
38429 
383431 
39433 
39435 
39437 
38446 
38448 
392440 
38448 
33443 
39445 
38447 
39449 
39451 
398453 
39455 
398457 
38466 
38461 


a3g36l 


a39365 


a38395 


a38449 


as3silT+l,y 
*286 
assall,y 


ı *a95 


a84 
a37635 


345958 


a39049 


#0 
*all 
a3904& 
*a188 
*all 
*a7 
*ald1 
*all 
*a8 
adılanı 
as7a4s 
#al01 
*all 
*a8 
*all 


*+a109 
#all 
*a7 
#all 
asaaol 


237659 
338464 
*al10 
#127 
*2106 
*a106 
#1,a195 
#h,a105 
a41696 


a38515 


PFET) 


---? („..) auswerten 


aus token tabellenoffset bilden 


h,funktionsroutine 


---> funktionsroutine 
---> fehler wenn nicht numerisch 


==}. Instr 
---} "syntax error” 


OR 


---> gk-integer wandlung 


---} arg nach fac 
---> gk-integer wandlung 


---> integer-gk wandlung 
ZAHLENVERGLEICH 


---> variablentyp prüfen 


s string: -> 


vorzeichenbit 
ins erste mantissenbyte 
von fac bringen 


l,arg 
Ay. 
---> arg mit fac vergleichen 


---} wahrheitswert nach fac 


38498 
39508 
38502 
398564 
38306 
39508 
38507 
39510 
38511 
39513 
38515 
39517 
38518 
38528 
38520 
393923 
39524 
3952 

39529 
39520 
39532 
39534 
39536 
398538 
38548 
39541 
33542 
39543 
39545 
38547 
39549 
39552 
38552 
393592 
38552 
39535 
39559 
38533 
3985353 
39596 
3985597 
393562 
39364 


a38504 


a38509 


a38520 


339549 


a385497 


*a97 
a38504 
#1 
a39504 


x *a97 


#255 
*a192 


#233 


a385328 


ı *al02 


a39540 


3335348 


a33137 


a33149 
*al20 


*a1l20 
2395997 


ı #255 


a238540 


#1 


a393570 
al145 
338532 


STRINGVERSLEICH 


stringflag rücksetzen 
operator-maske 

---> frestr 
stringlänge 
l,stringadresse 

hyısa 

zeiger auf 2, string 


IP TEERPEEFT EORREEFT EEPRBEFT, 


---> frestr 
l„adresse des 2. strings 
Dyaan 


EPTEERBEEFT: 


» längenvergleich 
; längen gleich: -> 


s 2. string kürzer: -> 
länge des 1. strings 


vorzeichenbyte von fac 


. 


vergleich der beiden strings 
zeichen für zeichen 


er 


3 -—-> Ida (al09) ,y 


---> 1da la98),y 


.. 


abschlu des vergleichs 


} 70-5 byte-gk wandlung 
VARIAEBELEN-VERWALTUNG 


3 => chkcom 


} 77: variable dimensionieren 
---} chrogot 


398629 
38638 
33632 
398634 
39636 
39638 
39639 
39641 
39642 
38645 
398647 
39648 
38650 
38652 
393654 
38657 
38657 
38659 
58661 
396653 
39665 
38667 
38669 
58671 
538673 
38675 


333370 
a39372 


«39595 


338601 
a38602 


2 as8612 


a38622 


339438 


a38645 


a386537 


a38665 
338667 


339393 
339049 


ı #0 
ı #al5 
i *al4 


a1159 

asBaßl 
a38714 
a38612 


all3? 
azBanz2 
a38714 
a38692 
#’$ 
a38422 
#255 
#all 
338638 


#’% 
a39645 
*ald 
a39582 
#128 
*ald 
+a697 
*as? 


3396537 
a39067 


#0 
*alöd 
*a45 
*a46 
*a96 
*a95 
*a48 
a38577 
*a47 
a39724 


VARIARLE 


sn 


son 


. 


. 


SUCHEN / ANIL 


setzt dim-flag zurück 
---> chrgot 

dim-flag 
byte 1, variablennsme 


ja: 


» chraoot 


> buchstabe? 


> "syntax error" 


string-flag 
integer-flag 


chrget 


ziffer: -7 
---> buchstabe? 
nein: 


# 


> chrget 


zitferi => 
---> buchstabe? 


jar 


stringvariable? 
nein: 


“ 


string-flag setzen 


integervariable? 
nein: 
integer zulässig”? 

nein: syntax errar -> 


integer-flag setzen 
bit 7 im 1. namensbyte setzen 


bit 7 im 2. namensbyte setzen 


---> chrget 
byte variablenname 


2. 


integer-array-sperrflag 

feldvariable und zulässig? 
nein: 
---} feldvariable behandeln 


integer-array-sperre rücksetzen 
variablenanfang 


in suchzeiger übertragen 


feldvariablen-anfang erreicht? 


393677 
39680 
396932 
396934 
39686 
3B6889 
38639 
38692 
39694 
386976 
38698 
39706 
38703 
38703 
38704 
39705 
38707 
33709 
39711 
38712 
39714 
33714 
39716 
38718 
38729 
39721 
398723 
398724 
38724 
39723 
39726 
39728 
38730 
39732 
39774 
38735 
38735 
38737 
3987397 
39741 
39743 
38745 
39745 
39747 
39749 
39751 
393753 
39733 
39755 
38757 
398759 
38761 
239761 
38763 
38765 
38767 
398769 


338677 


a38703 
a38704 


339714 


a38730 


a39739 


a38745 


a397535 


a38761 


a38769 


a39704 


a1233 
*a120 
*+a798 
*a120 
a38703 
333988 


a38647 
a38665 
#’a 

a38723 


#91 


#165 


#1,238061+2 


.a38772 


#1,a1186 
#h,a1186 


#1 
a38730 
#’i 
338792 
338769 


#5 
339769 
#’5 
339792 
a38769 


#’t 
338792 
a39769 


#’r 
a387697 
#1 
a38792 
a33049 


. 


.. 


. 


---> lda (a95),y 
variablennamen vergleichen 


---> Ida (a95),y 


nicht gleich: -> 
---} variable gefunden 


suchzeiger auf nächste 
variable setzen 


und weitersuchen -" 


buchstabe setzt carry, 
sonst carry = Ö 


aufruf aus ausdrucksauswertung? 
nein: -} 
(a,y) zeigt auf konstante & 


ti$: -> 
tin 
ds$sı -> 
ds: -> 
st: -> 
eri -> 


nicht el; -> 
---} "syntax error’ 


38772 
39774 
39775 
39778 
33780 
38792 
39784 
39786 
33788 
39798 
397972 
39794 
39796 
39798 
38900 
38902 
39804 
39306 
398808 
338909 
zaBll 
38813 
393814 
33816 
33819 
38821 
393923 
38825 
38926 
33928 
39930 
38932 
39834 
39836 
39338 
393349 
38842 
39844 
39846 
38848 
38348 
399590 
38952 
33954 
38857 
38858 
19859 
38962 
39863 
38864 
38867 
33869 
38871 
388972 
38875 
33877 
39979 
38995 
38882 
33993 


a38772 


a39792 


az8314 


as8834 


a38333 


a33848 


3397453 
*a47 
*a43 
*a95 
*ar6 
*a49 
*a50 
*a70 
*#a91 


#7 


2 a38914 


*aB8 
*a87 
a3sao8 
*a99 
*287 


ı #a47 


+a48 
#288 
#487 
#288 


{ *aB97 
{ #a50 


338848 
*a49 

„38848 
a393963 


*tas4 


ı #235 


#0 
al290 


al299 
*a88 
*a83 


al200 
+49 
*a89 
asg834 


338834 


.. 


.. 


1, byte variablenname 
2. Byte 
auf reservierte namen prüfen 


feldvariablen-anfang 


feldvariablen-ende 


teldvarisblen-tabelle muss um 
7 bytes nach oben geschoben werden 


---} block verschieben 


neuer feldvariablen-anfang 


r-zeiger müssen bei den 


stringfeldern neu berechnet werden 


variablen-ende erreicht” 


ja: fertig -> 


(a,x2) zeigt auf feldkopf 


---> Ida (a54),y: 1. namenshyte 


---> Ida (a34),y: 2. namensbyte 


--- Ida (a34),y: feldlänge 
zu (388,489) addieren 


---> 1da (a34),y 


gk-variable? 

ja} >> 
integer-variable? 
Ja 


398962 
39704 
383705 
38788 
39718 
38912 
39714 
38917 
39919 
39921 
39922 
5389253 
398925 
38928 
398930 
589731 
38734 
39956 
38938 
39948 
39943 
38945 
38947 
39948 
38951 
39953 
39755 
389537 
38958 
39960 
38962 
38964 
39966 
393768 
39968 
38979 
39972 
393974 
39975 
38977 
33979 
58781 
38982 
39784 
399896 
38788 
39998 
337971 
389953 
393995 
39997 
38998 
397860 
39882 


338902 


a38912 


a39953 


338968 


as8F7al 


338983 


a38998 


al209 
3389593 
*a120 


*al20 
*a90 


al2ao 
#0 


(a9a),y 


ass16l 
#0 
{a90),y 
#3 


*a4 
*as4 
a38902 
*a353 
338962 


#0 
*+a59 
(a95),y 


*a70 
(a9) ,y 
#0 


(a9) ,y 
#6 
asBa9a1 
*a95 


#2 
#a96 
a33998 


*a71 
*a72 


PPFESPRERFe: 


nn a a ee 


er 


---> Ida lal4),yr zahl der dimensionen 


*2 

= 

zum zeiger addieren 

setzt den zeiger auf das erste 
feldelement 


feldende erreicht? 


---> Ida (a34),y: länge des strings 
null: -> 


---> Ida (a34),y: 1l,stringadresse 


+ länge 
= ]„adresse des r-zeigers 


---> Ida (a34),y: h,stringadresse 
+ übertrag 
= h,adresse des r-zeigers 


---> Ida (a9@),y: l,r-zeiger 
% 
= l,neuer r-zeiger 


---> Ida (a96),y: h,r-zeiger 
+ übertrag 

= h,neuer r-zeiger 

zeiger in stringfeld 

auf nächsten stringdeskriptor 
erhöhen 


und weitermachen -= 

1. byte variablenname 

in variablenkopf bringen 
2. byte variablenname 

in variablenkopf bringen 
alle variablenbytes 


mit nullen füllen 


(a,y) auf 1. variablenbyte setzen 


l,variablenzeiger 
hysss 


FIAT 
39005 
39006 
Sand 
39018 
F9012 
39014 
39015 
397017 
390197 
FIBZA 
39028 
39025 
39025 
39028 
39938 
39032 
3903 
39033 
FIOIh 
39039 
539042 
39044 
79046 
39048 
39050 
39932 
39054 
T9056 
39059 
39961 
39064 
390654 
39867 
39067 
39069 
39071 
39072 
395074 
39975 
39677 
39978 
39079 
9081 
39082 
39094 
397985 
3988 
39099 
FOL 
39092 
39094 
39995 
39896 
39897 
Z9100 
37101 
39184 
39105 
39167 
39119 
37112 


a397003 


a39615 


as39o3T 


a39059 


as9046 


a37057 


a37064 


a37967 


337877 


*a96 
as9a15 


*a89 
*a89 


144 128009 


a397046 
*aldBd 
*a101 


all39 
a37676 
a37655 
*al02 
a39059 
*397 
#144 
a37064 
#1,a39028 
#h , 239020 
a4169& 
a297964 
a39196 


a41787 


*al2 
*al4 


*al3 


#0 


*a7a 
*a69 
as90o33 
*a6%9 


*a70 


a2sst+t2,x 
a2gstl,x 


*#al90 


a2s6+t2,x 


aldi 


azgötl,x 


. 


IT EEPPEEFT EERPEEFT EURRBE?T BERRBErT 


-. 


PL EEPREEFT ERBE? 


zahl der dimensionen 

* 2 

+ 5 = länge des variablenkopfes 
zum zeiger auf feldkopf addieren 


ergibt zeiger auf erstes 
feldelement 


konstante 32768 


---> gk-integer wandlung 
h,integer 


acer 


---> chrget 
---} ausdruck auswerten 
---> fehler, wenn nicht numerisch 


ı vorzeichen von fac 


negativ: fehler -> 
exponent von fac 
kleiner als 16? 
ja: > 

konstante 32768 


---} mit fac vergleichen 
ungleich: fehler -} 
---> gk-integer wandlung 


---> "illegal quantity error" 


dim-flag 
integer-flag 


string-flag 


2. byte, variablenname 
Is byte; 
---> index auswerten 


variablennamen wiederherstellen 


die beiden flags werden aus dem 
stack genommen und auf den stack 
gelegt; an ihrem alten platz im 
stack wird der indexwert als 
integer abgelegt 


37193 
39195 
39196 
37198 
37201 
39201 
39201 
397205 
37205 
39207 
39210 
39212 
39215 
39217 
39217 
39221 


39223 


a37144 


a39156 


339177 


asp193 


a37196 
3371983 


asrzel 


a380627 


*al3 


*ald 
#127 
*al2 
*+a47 
*a48 


ı *a95 


+a975 
+a5o 
a397136 
*+a49 
a39226 
#0 
al233 


*a69 
a37177 


al23? 
*a128 
*a70 

*3128 


339261 


x #14 


a34435 


ı #19 


*al2 
339198 
az» 
#4 
al23T 
*+a120 
*all 
+a128 
a3pı193 
a39363 


PPFEPPRBEFT) Pr 


re 


---> chrgot 

folgt komma”? 

ja: nächsten index auswerten -> 
—-} prüft ob "3" Folge 


flags wiederherstellen 


feldvariablen-anfang 
in suchzeiger bringen 


variablen-ende erreicht? 


ja: variable nicht gefunden -> 
---> Ida (399),y: namen aus tabelle 
mit gesuchtem namen vergleichen 


---> Ida (a99),y 


gleich: variable gefunden -> 
---> Ida (a99),y: feldlänge aus header 


zum suchzreiger addieren 


---> lda (a95),y 
und weitersuchen -> 
"bad subscript” 


"illegal quantity” 
---> fehlerausgang 


’redim’d array’ 

dim-flag mu“ null sein, 

sonst fehler -> 

---> zeiger auf erstes element setzen 


---" Ida ta95),y: dim aus header 


und zahl der indices 
gleich? 

nein: fehler -> 

---} feldelement aufsuchen 


39226 
39229 
39232 
39234 
39256 
39238 
39248 
39242 
39244 
39245 
39246 
39248 
39250 
39252 
39253 
39254 
39256 
39258 
39259 
39268 
39261 
39263 
397269 
39267 
39267 
39271 
39272 
39273 
39275 
39276 
39277 
39279 
39288 
39282 
39293 
39284 
392896 
39297 
59271 
39293 
39295 
39297 
39299 
39301 
39303 
39305 
39306 
39307 
39309 
39311 
397312 
39314 
39317 
39319 
59321 
39323 
39325 
39327 
39329 
39330 


39332 


a39226 


a39254 


a39263 


337314 


a39329 


jsr 
jsr 
ldy 
sty 
ld» 
lda 
sta 
bpl 
dex 
iny 
Ida 
sta 
bpl 
dex 
dex 
stx 
lda 
iny 
iny 
iny 
sta 
ldx 
lda 
bit 
bvc 
pla 
cie 
ade 
tax 
pla 
ade 
iny 
sta 
iny 
txa 
sta 
jsr 
stx 
sta 
ldy 
dec 
brne 
adc 
bes 
sta 
tay 
tka 
ade 
bec 
iny 
beq 
jsr 
sta 
sty 
lda 
ine 
ldy 
beq 
dey 
sta 
bne 


a397903 
a33107 
#0 


(a95) ,y 
a39245 


*a760 
(a9), y 
a39254 


#1 


#0 


(a95),y 


(a9) 1 Y 
a39471 
*all3 
*all4 
*al4 
#ali 
a397263 
*a87 
asp406 
*+389 


*a88 
a39314 


339406 
a33187 
*a47 
+asd 
#0 
*a114 
#allT 
a39334 


(a8B) ,y 
a39329 


PT PR T EERHBEFT 


> suchzeiger hinter header setzen 
---} platz im speicher prüfen 


vorbesetzung f variablenlänge 
1. byte variablenname 

in header bringen 

keine integervariable: -> 
variablenlänge dekrementieren 


2. byte variablenname 
in header bringen 
keine stringvariable: -> 


a 


variablenlänge um 2 vermindern 


var-länge: gk 5, str 3, int 2 
zahl der dimensionen 


in header bringen 
vorbelegung des dim-wertes 


aufruf durch "dim’? 
nein: => 
dim-wert vom stack 


+ 1 (wegen wert ®) 


h,dim-wert in header 


Iauos 

---> platz f dimension berechnen 
l,platzbedarf 

Russe 

zeiger in header 

weitere dimension verhanden? 

jaı > 

feldlänge + feldanfangsadresse 


ergibt feld-endadresse 


überlauf: out of memory -> 

---> platz im speicher prüfen 
l,variablenende 

hysas 

alle feldbytes mit nullen füllen 


39334 a39334 dec *a89 


39336 dec *a114 

39338 bne a39329 

39348 inc #387 

39342 sec 

39343 lda #a49 ; variablen-endadresse 
39345 sbc *395 i — header-anfangsadresse 
39347 ldy #2 ; = gesamte feldlänge 
39349 sta (a95),y ; 1, feldlänge in header 
39351 Ida *#a50 

39333 iny 

39354 sbc #396 

39356 sta (a9) ,y FE Daum 

39358 Ida *#al2 ; aufruf durch ’dim’? 
I9I60 bne a39478 ı ja: fertig -> 

39362 iny 

39363 a39363 jsr al233 ; => lda (a95),y: dim-wert 
39346 sta *all ; aus header übernehmen 
39368 


39378 
39372 339372 
39374 


multiplizier-register löschen 


39375 ; index vom stack 
39376 
39377 
39379 j 3 => Ida (a95),y: dimwert aus header 
sta #128 
pla 
sta #alel 
cmp *a129 ; vergleichen 
bec 239499 ; kleiner: ok -> 
bne a39403 s grö*er: fehler -> 
iny 
ijisr al233 ı ---> 1da (a95),y 
sta *a126 


cpx #a120 
bec 337418 
3 a39403  jmp a391F3 3 => "bad subscript” 


asp4ds jmp as44sE I 7: "aut of memory” 


as9409 iny 
as9410 Ida #ail4 ; multiplizierregister 


begq 239427 ;ı leer: -> 
isr a39471 3 77} multiplizieren 


adc #a109 


ldy #254 
a39427 ade *#alßl 
stx #*all 
dec *a11 
bne a397372 
sta *#s114 
ldı #5 : vorbesetzung f elementlänge 


37439 lda #259 ; 1. byte variablenname 

FF7441 bpl a397444 ; keine integervariablei > 
397443 dex 

79444 239444 Ida *37% ; 2. byte variablenname 

79446 bpl 337450 » keine stringavariables -} 
37448 dex 

39449 dex 

397450 a39450  stx *a46 ; var-länge (ok 5, str 3, int 2) 
39452 Ida #0 

397454 isr a39482 1 7073 offset des feldelements berechn 
39457 txa 

397458 adr *a98 ı + adr des I. feldelements 
397468 sta #a71 ; = adr des gesuchten elements 
539462 tya 

39463 adc #389 

39455 sta #372 

39467 tay 

397468 lda #a71 

39476 339470  rts 

39471 

Be — — MULTIRFLIZIERBQOUTINE 
397471 

37471 a39471 sty #a34 ; y zwischenspeichern 

39473 jsr atz233 3 7-> Ida (a5) ,y 

397476 sta #340 

39478 dev 

39479 jsr al233 3 => Ida ta95),y 

37482 3397492 sta *a4i 

397484 Ida #1& ; verschiebe-zähler 

37486 sta *2973 

39488 ldx #& 

37496 ldy #8 

39492 339492 txa 3 aus {y,x) und (a11l3,all4) wird je 
394973 asl a ; ein 1&6-bit-schieberegister 
37474 tax ; gebildet; dann wird (a40,341) 
37495 tya s mit (a113,all4) multipliziert 
37496 rol a ; und das ergebnis in (y,x) aufge- 
397497 tay ; baut. 

39498 bes a39405 ; bei überlauf aus dem h-byte des 
39508 asl *al13 ; ergebnisregisters folgt 

39592 rol *a114 ; "out of memory error” 

39504 bec 339517 

39306 ee 

39567 tra 

39508 adc *a46 

F9519 tax 

39511 tya 

39512 adc *a4l 

39514 tay 

39515 bes a37406 

39517 339517 dec *a95 

39519 bne a39492 

39521 rts 

39522 

a u — FRE 

395322 

39522 a39522 Ida *al3 ; string-flag 

3952 beq 339529 ; keine stringvariableı: -> 
393526 jsr 346614 3 ---> frestr 


397527 a39529 jsr a43348 3 77: garbage collect 


39549 
39542 
39545 
39546 
39549 


39549 ; 


39549 
39549 
39550 
397553 
395339 
39358 
37558 
37358 
397558 
39548 
39562 
39564 
39565 
39567 
39578 
39376 
39378 
39578 
39572 
39374 
39576 
39578 
395939 
Ss 
37581 
351 
37531 
39584 
39597 
39590 
39592 
3975974 
395397 
39800 
39663 
39605 
397568 
39609 
37611 
39612 
39614 
39615 
39617 
39618 
39628 
39621 
39624 


as7342 


a37378 


c *a50 


a39378 


341678 


363320 
#0 
239961 


*a129 
a37478 
#21 


a39627 
339358 
a39039 
#128 

*ald 

339565 
a37655 
338027 
#178 

a38035 


#372 


*a7ıl 


#a60 


*+a597 


a36272 
a37742 


nr 


stringbereich-anfang 

- variablen-ende 

= freier speicherplatz 

---> stringflag = @, fac vorbereiten 
===> gk-zahl in fac erzeugen 

POS 

---> plot: kursorspalte holen 

h-byte 

---> (a,y) als gk-zahl nach fac 
DIREKTMODUS PRUEFEN 
run-modus? 

ja: fertig > 

"illegal direct’ 


"undefined function" 
---> fehlerausgang 


(A,Y) NACH FAGC 


string-flag löschen 


exponent 


DEF 


---> fn-namen prüfen, zeiger setzen 
> fehler wenn cdirektmodus 

-> prüfen ob °’(" folgt 
integervariable sperren 


---> variable suchen oder anlegen 
---> numerischen ausdruck auswerten 
---> prüfen ob ’)° folgt 

’=’-token 

---> syntax check 

l. zeichen des fn-ausdrucks 
h,fn-variablenzeiger 


lsuns 
h,programmzeiger 
Isaunu 
auf stack legen 


---> programmzeiger auf trennzeichen 
---> parameter in fn-namensvariable 


39782 
39705 
39797 
39708 
39711 
39713 
39715 
377168 
57718 
39719 
39722 
39723 
39725 
39726 
39728 
397731 


39733 


arr6ds 


339684 


a #165 
asan3d 
#128 
sta *ald 
a38372 
ı #378 
‚ #379 
arr7sss 


39627 


N 
EU 
Pr) 


azgnzl 
a57655 


*+a78 


ı #379 
#2 

" aBEılE 
*a7l 


aasııE 
a39365 
#a7E 


assızl 


asr7abB4 
*#a72 
a4ıSöl 
*a60 


+79 
all4S 
a397736 
338047 


es 


"fn’-token 
> syntax check 
integervariable sperren 


variable suchen oder anlegen 
l,fn-variablenzeiger 

Kiga 

---} prüfen ob nunerisch 

---: namen prüfen, zeiger setzen 
zeiger auf fn-namensvariable 

auf stack legen 


ls...) auswerten 
prüfen ob numerisch 


zeiger auf fn-namensvariable 
wiederherstellen 


> Ida (378) ,yı 1,fn-variablenzgr 


> Ida (a78),y: HBynas 
: undefined function -> 


> Ida (a7l),y: wert d fn-variablen 


auf stack legen 


fac runden, in fn-var bringen 
programmzeiger auf stack retten 


> Ida (a78),y: zeiger auf fn-ausdr 
in programmzeiger bringen 


---> Ida (a78),y 

tn-variablenzeiger auf stack retten 
---> fn-ausdruck auswerten 
fn-variablenzeiger 

> chraot 


zeichens ok > 
> "syntax error” 


’ programmzeiger wiederherstellen 


39742 a39742 1dy #6 ‚ alten wert der fn-variable 
39744 pla ; wiederherstellen 

397453 sta (a78),y 

39747 pla 

397748 iny 

39749 sta (a7B),y 

39751 pla 

39752 iny 

39753 sta (a79),y 

97755 pla 

39756 iny 

39737 sta (a78),y 

397397 pla 

39768 iny 

39761 sta (a78),y 

9763 rts 

39764 

39704 esse mueneee STRING-FLATZRESERVTITERUNG 
39764 

39764 a39764 1dx *alaa ’ zeiger auf string-deskriptar 
39765 ldy *alöl 

39768 stx #a80 } unspeichern 

39778 sty *aBl 

39772 a39772 jsr a43270 } ===> stringbereich reservieren 
397773 stx *298 ı l1,stringadresse 

39777 sty #399 I Hana 

39779 sta *a97 ;ı länge des strings 

37781 rts 

39782 

IE STR# 

397782 

39782 a37782 jsr a37653 } zum: prüfen ob numerisch 
39785 lcdy #0 

39787 isr 342997 3 77-> gk in zahlenstring wandeln 
39798 pla 

39771 pla 

39792 337792 Ida #1,a256-1 ; 1,zahlenstring-puffer 

39794 ldy #h,a236-1 F Ara 

39796 

een STRING-UÜBERNAHME 
39796 

37796 239796 Ida #°" 

39798 stx *%a7 

397808 stx *a8 

39902 a39802 sta *#alll » l,stringadresse 

39804 sty #all2 3 Kyem 

39805 sta #398 

ZIAH8 sty #397 

39818 ldy #255 

F9812 aF9Sı1R iny 

39813 jsr al222 3 ==> Ida (alll),ys nächstes zeichen 
39816 beq a39830 s endemarke: -> 

397818 cmp *a7 ; auf delimiter prüfen 

39820 beq 339925 

39822 cmp #a8 


39824 bne a37812 


37904 
39967 
379168 
37711 
39713 
37914 
399716 
399718 
s97721 
39923 


a39826 


a37830 
a39831 


‘ a39843 


as59856 


339867 


ya 
asFasl 


*a97 


*alll 
*all3 
*a112 
a398453 


‘ *a114 


a39764 
*alill 
*al12 
a37980 


*a97 
#ad,N 
*a98 
*kad+lıx 
*a97 
#abt+2,x 
#0 


ı #al00 


*alßl 
*allz 


*#al5 


13 
x *a23 


{ #a22 


*a11 
*a109 


a37908 
a376538 


*%alll 


*all2 
#0 
al222 


*a120 
a1244 


’ 


PPFREFT, 


und auf gänsefu 


stringlänge 


+ string-anfangsadresse 
= string-endadresse + 1 


---> stringbereich reservieren 


l,stringadresse 
No. 


---} string in bereich kopieren 


DESKRIFTOR IN STRING-STACK 


. 


Pr 


ww 


Pre) 


we 


wu.“ 


string stack zeiger 
stack voll? 
nein: -> 


’formula too complex’ 


---> fehlerausgang 


stringlänge 
in string-stack 
l,stringadresse 


Pa 
in string-stack 


l,adr des deskriptors im stack 


as 


string-flag setzen 


zeiger auf letzten stack-eintrag 


zeiger auf neuen stack-eintrag 


STRING-VERKETTUNG 


zeiger auf deskriptor des 1. strings 


auf stack legen 


---> adr des 2. deskriptors holen 


---> prüfen ob stri 


ng 


zeiger auf deskriptor des l. strings 


---> 1da (alll),y: länge des 1. strings 


---> 1da (al@6) ,y: 


länge des 


7 


£r 


strings 


39926 ele 

39927 adc #al20 ; + länge des 1. strings 

399297 ; kein überlauf: -" 

39931 3 =7-> "string too long" 

3997724 

3997234 339934 jsr a39764 3 => bereich f gesamtstring reservieren 
39937 isr a39983 B 1. string in bereich kopieren 
399745 lda *aB0 ; zeiger auf 2, deskriptor 

39942 ldy #a8i 

397744 jsr a46018 3 : frestr 

399747 jsr 339794 3 * 2, string hinter 1. string kopieren 
39758 lda #alll ; zeiger auf 1. deskriptor 

39952 ldy #a1l12 

399754 jsr 340618 H > frestr 

Bi hard jsr a39Bss H ; deskriptor in stack 

F970 imp a37702 B > zurück in die auswertung 

39963 

EBENE a a a Sn nn STRING-KBPIERRDUTINE 
39963 

39763 a39963 Idy #0 

399653 jsr al222 ı m: Ida (alll),ys stringlänge 
399748 pha ; auf stack legen 

397969 iny 

39970 isr al222 5 => Ida (alll),y: l,stringadresse 
39773 tax 

39974 iny 

39975 jsr al222  —-> 1da lalll),vi ua: 

39978 tay 

399797 pla 

FIFTBH a39989 sta #al4 ; l,stringadresse 

399782 sty #339 Ü Dyesa 

39994 239994 tay ı stringlänge 

39985 beg 239998 ı = 8: fertig -> 

39987 pha 

399938 239989 dey 

39787 jsr al2oo ; => Ida la54),y: zeichen aus string 
299972 sta (a59),y ;s in stringbereich kopieren 

399774 tya s stringende erreicht? 

39995 bne 3397988 s mein: > 

39997 ı stringlänge 


39998 3399798 
;ı + bereichsanfang 
= stringende 


49007 340007 


4aoo8 

RBB mn FRESTR 

aaaod 

4an0B aduanıd jsr a3767& i > ausdruck auswerten 
4acal1 adaall jsr 337658 3 77: prüfen ob string 
49014 adaoıld4 Ida *al9 ; 1,deskriptor zeiger 
4016 ldy all X Brese 

45018 aaa sta #al4 

49570 sty *a35 

4aa22 jsr a40185 3 -7-> deskriptor aus stack entfernen 
4oo25 bre 246984 3 war nicht im stacks > 
4927 jsr 236764 } 77: r-zeiger vorhanden? 
45030 bec a40084 » nein: > 


49941 
44942 

49044 

49045 

49047 

49049 

49051 

40052 a40652 
49054 

49056 

46057 

44958 

40060 

49062 

49064 

20066 

48667 

49068 

49970 

49072 

49074 

49075 240076 
44978 

49080 

49082 a40082 
49083 

49084 

49094 a40084 
49086 

40889 

409099 

49091 

49994 

49995 

49096 

49099 

49198 

45102 

49194 

49105 

49196 

49106 340106 
49108 

49119 

46112 

40114 

49116 

49118 

49120 

40122 240122 


(a34),y 
#255 


*as4 
*a3d 
a4o052 


*a34 
*a2I 


*a32 
a4m122 
*astl 
a45122 


*asl 
*ası 
a40a76 
*a52 
*asl 
a4un82 
*as2 


#0 
a1206 


a1206 


al2o9 


*+a54 
*a355 


*a24 
a40122 
*a253 
a48122 
*a22 
#3 
#a23 


#9 


3 


rn 


=. 


PPFESEREEPF: 


Pr 


er 


string ungültig machen 
durch r-zeiger = länge, 255 


stringlänge 

invertieren 

+ 1 ergibt negative stringlänge 
stringlänge von adresse 

des r-zeigers subtrahieren 


l,stringadresse 
Ryscu 


liegt string am unteren ende des 
stringspeichers” 

nein: -> 
stringbereich-anfangszeiger 

um stringlänge + 1 

hinaufsetzen 


und nochmal inkrementieren 
wegen r-zeiger 


stringlänge 


---} Ida (a54),y: stringlänge 
---> lda (a34),y: l,stringadresse 


---> 1da (a34),yt Nuss 


l,stringadresse 
Bysan 
stringlänge 


deskriptor im string-stack? 


nein: > 

stack zeiger 

A: 

= zeiger auf letzten string 
setzt zero-flag 


a CHR%$ 

40123 

40123 a40123 jsr 240327 3 => getbyt: byte übernehmen 
40126 txa 

49127 pha ;s und auf stack legen 

46128 lda #1 ; als stringlänge 

49130 jsr a39772 ;} => stringbereich reservieren 
40133 pla ; byte vom stack 

45134 ldy #0 

40136 sta (a98),y s in stringbereich kopieren 

46178 346139 pla ; rücksprungadresse vom stack nehmen 
491397 pla 

45140 jmp 239856 3 ---> deskriptor in stack bringen 
451453 

HORIS mann bERFT®& 

46143 

46143 a4@143 jsr a460262 5 > stringadr u parameter v stack 
4u14s pha ; left$-parameter merken 

40147 jsr a33153 3 => lda (a8%),y: stringlänge 
49150 sta *#a120 

49152 pla ; left$-parameter 

40153 cmp *al2d ;ı kleiner als stringlänge? 

49155 tya ‚= 

40156 a46154 bec a40163 a jaı > 

49158 jsr a33193 3 ==> Ida (a8@),y: stringlänge 
4161 tax s als left$-parameter nehmen 

40162 tya ‚= 

40163 a46167 pha s als position des 1. elements 
45164 a4sl64 tra ; left$-parameter 

40165 a40165 pha 

40166 isr 339772 5 => stringbereich reservieren 
40167 lda #288 s 1,deskriptor-zeiger 

49171 ldy *a81 5 Bes 

45173 jsr 246018 3 =} frestr 

49178 pla ; länge des neuen strings 

49177 tay 

48178 pla ı nr. des 1. elements {bei left$: ®) 
461797 cie 

45186 adc #334 ; + adresse des gegebenen strings 
46192 sta #a34 ı = adresse des neuen strings 
49184 bcec a48188 

48186 inc #235 

49188 249188 tya 

451897 jisr 2399894 ı => string in stringbereich kopieren 
4n1972 jmnp 239856 3 > deskriptor in stack bringen 
49195 

1, nn nn nn RIGHT# 

45195 

48195 348195 jsr a4u2&2 3 ===> stringadr u parameter v stack 
46198 pha ı right$-parameter 

451997 jsr a33153 =: Ida (a88),y: stringlänge 
44262 sta *a1l26 

4204 pla ; right$-parameter 

49205 elc a | 

49206 sbce #a126 ; — stringlänge 

49208 eor #255 si invertiert = nr. des 1. elements 


45210 imp a4015& 3} ---> weiter wie bei left# 


49213 
45215 
46217 
40220 
49222 
4622 

40227 
40230 
49233 
49235 
49236 
49237 
40238 
40240 
40241 
45244 
40246 
49247 
49248 
40250 
40252 
49254 
49256 
46258 
49260 
49262 
49262 
49265 
40266 
40267 
40268 
49279 
40271 
49272 
49273 
49274 
49275 
40277 
40273 
40288 
46282 
40283 
49294 
40285 
49287 
49298 
49289 
40289 
40299 
49289 
40292 
49295 
49295 
49298 
40308 
46302 
49303 


#255 
#al91 
al145 
#’) 
a40230 
a39073 
a40324 
240262 
a4as18 


a46213 Ida 
sta 
jsr 
cmp 
beq 
jsr 
jsr 
jsr 
beq 
dex 
tya 
pha 
Ic 
pha 
jsr 
sta 
pla 
ele 
sbc 
bes 
eor 
emp 
bec 
lda 
bes 


340230 


#0 


a3sı1s3 
*a1206 


+al20 

a4u1&4 
#255 

*alß1 

a40165 
*al01 

a40165 
a4d262 jsr a39a27 
pla 
tay 
pla 
sta 
pla 
pla 
pla 
tax 
pla 
sta 
pla 
sta 
Ida 
pha 
tya 
pha 
ldy 
tya 
rts 


*385 


+380 


*asl 
*a85 


#0 


a46295 
as9353 


340289 


a40011 
#0 
{ #al3 


a49295 


1“ 


> chrgot 
2. parameter vorhanden? 
nein: -> 
---} chkcom 
getbyt: Z, parameter holen 
» stringadr u 1. param halen 
parameter = 6: fehler -> 


i. 


nr. des 1. elements im gegebenen str 


---> Ida (a80),y: länge des strings 


nr. des 1. elements von mid$(...} 


- länge des gegebenen strinas 
richt negativ: -> 


neue stringlänge berechnen 


kleiner als 259 -> 
= 355 


immer > 


---> prüfen ob ’)’” folgt 
h,letzte rücksprungadresse 


Isoou 

h,rücksprungadr von al838@ jsr a94 
ER 

l,adresse des string-deskriptors 


hysos 


letzte rücksprungadresse 
auf stack zurücklegen 


1. parameter 


LEN 


---} frestr, string-flag rücksetzen 
---} byte nach fac 


---> frestr 


string-flag 
stringlänge 


49339 
49339 
49339 
49342 
49344 
49346 
49348 
49358 
49352 
49354 
49356 
49357 
49359 
40361 
40363 
49365 
49367 
49368 
49370 
49372 
49375 
49376 
49377 
49379 
49382 
49385 
40386 
49388 
40399 
49392 
40394 
49396 
44398 
49399 
49399 


a40321 
a40324 
a40327 


a49339 


a40368 


a40390 


a40399 


a1139 
a37652 
a39039 
*aldd 
a40318 


ı *albi 


all45 


a40295 
340399 


ı #259 


*369 
*all? 
*all4 


ı tas4 


*a59 


*a54 
*as6 
*a35 


ı tab® 


a40368 


ı *#a37 


#0 
alzil 


(a36),y 
al145 
a41855 


#0 
(a36),y 
*all3 
*all4 


ı #a59 


+a60 


340747 


rn ee 


---> frestr, string-flag rücksetzen 
stringlänge = di -> 


---} Ida (a34),y: 1. zeichen aus string 


---> byte nach fac 


---> "illegal quantity” 
OBETEYT 


---> chrget 

> numerischen ausdruck auswerten 
---> gk-integer, fehler wenn negativ 
h-byte des ausdrucks 

nicht null: fehler -: 

l-byte des ausdrucks = ergebnis 
==} ehroot 


VAL 


---> frestr, string-flag rücksetzen 
stringlänge = 6: -) 
programmzeiger 


retten 


string-anfangsadresse 
in programmzeiger bringen 


stringlänge + anfangsadresse 
= string-endadresse 


---> Ida (a36),y: zeichen nach string 
merken 


und durch kode ® ersetzen 

---> chrgot 

---> string-gk-wandlung, gk nach fac 
zeichen nach string 


wiederherstellen 
programmzeiger wiederherstellen 


---> fac löschen 


40467 3 

4046072 

45492 a40402  jsr a37452 
49465 isr 246426 
4u408 a40498 jsr a3BaTzE 
45411 jmp a40324 
46414 

TE nn u 
45414 

49414 246414 jsr aS8033 
45417 a4%417 jsr a376852 
4420 au Ida #ald2 
4u422 bmi 3409319 
40424 240424 Ida #397 
49426 emp #145 
44428 bes a40318 
40430 jisr a41767 
40433 lda #alüa 
45433 ldy #a11 
4437 sty #229 
40439 sta #a21 
40441 rts 

454472 

49442 }---------------- 
45442 

404472 240442 Ida #a2l 
45444 pha 

49445 lda #320 
45447 pha 

40448 jsr a40420 
49451 ldy #6 
49453 jsr 333117 
49456 tay 

404537 pla 

45458 sta #a2d 
4440 pla 

an4sl sta *a2l 
40463 jnp 339353 
40455 

40466 | =--------- 
4466 

404665 a4046& jsr 240462 
46467 txa 

46478 ldy 4a 
40472 sta la2ö),y 
40474 rts 

49475 

48475 3=---------- 
45475 

49475 a40475 jsr 246295 
49478 sta #al6 
494808 ldy #8 
4u492 sty *#a37 
40484 sty *all3 
40486 sty *alld 
40488 a40488 cpy #ash 
40496 beq 340544 
40492 jsr alzao 
49495 iny 


PPEEPPELFFEFBR 


PREV ERPRBEPT 


IPTEERREEFT: 


auswerten 


> numerischen ausdruck 
> getadr 
> chkcoom 
- getbyt 


TADR 


> chkeom 

numerischen ausdruck 
vorzeichen von fac 
negativ: fehler -> 
exponent von fac 

gröer als 16? 

ja: feher -> 

---} gk-integer-wandlung 
h,integer 

14. 
l,adresse 
Hanse 


auswerten 


PEER 


adresse auf stack retten 


---* getadr 


lda (a28),y: peek-wert 


adresse wiederherstellen 


> byte nach fac 
FODHEE 


---> getadr, chkcom, getbyt 
byte 


an poke-adresse speichern 


DEC 


---? frestr, 
stringlänge 
zeiger in string initialisieren 
stellenzähler 


string-flag rücksetzen 


string-ende erreicht? 
jas -> 
> Ida (a34),y 


45496 camp #” ; leerstellen überlesen 

40498 beq 348489 

49500 inc #337 

49502 ldx *%a37 ; stellenzähler 

49504 epx #5 ; mehr als vier stellen: fehler -> 
49506 beq 249551 

49508 cmp #’0 ; zulässige hex-ziffer? 

49510 bee a40551 

49512 cmp #°: 

49514 bec a40526 

49516 cmp #’a 

49518 bee a40551 

49520 camp #’q 

49522 bes 3468551 ; nein: fehler 

49524 sbce #7 

40526 a40526 sbc #47 ; hex-ziffer um vier bits nach 
49528 asl a ı links schieben 

49529 asl a 

49530 asl a 

49531 asl a 

40532 ld» #4 

40534 a40534 asl a ; und in das ergebnisregister 
49535 rol *all3 ;i einrotieren 

49537 rol *a114 

49539 dex ; schon 4 bits einrotiert? 
49546 bre 346534 ; nein: -> 

49542 beg 249488 ; immer "> 

40544 

40544 240544 1dy #a1l3 ; integer aus ergebnisregister 
40546 ida *a114 

49548 imp 339542 3 => gk in fac erzeugen 
49551 

49551 a40551 jmp a39197&6 3 7-3 "illegal quantity” 
49554 

DO u WAIT 

49554 

40554 340554 jsr 340492 35 70: getadr, chkcom, getbyt 
49557 stx #373 ; 1. byte 

49559 ldı #8 

40561 jsr all45 3 77-> chrgot 

49564 beg 340569 sı trennzeichen: -> 

49566 jsr 246468 ;s > chkcom, getbyt 

45569 240569 stx *a74 ı 2. byte 

49571 ldy #98 

40573 a40573 jsr a33117 i => lda (a2Ö),y: byte unter adresse 
405376 eor *a74 s exclusiv-or mit 2. byte 
48578 and #a73 ; and mit 1. byte 

44580 beq a46573 ; ergebnis = dr: warten -> 
40582 3406582 rts 

405893 

49583 3 ----------------- FAC := ARG-FAC 
40583 

40593 a40583 Ida #a192 ; vorzeichen von fac 

49585 eor #255 ; invertieren 

44587 sta *al02 

49589 eor *al1d ; mit vorzeichen von arg "multiplizieren" 
4o51 sta #alll 

49593 lda *a97 ; exponent von fac (als null-flag) 


49595 jmp a4dsd& 3 => fac ı= arg + fac 


49598 
anan1 
49605 


49603 ; 


4uah 
40503 
4uh0& 
49606 
49606 
40606 
4ushB 
49611 
49611 
40613 
49615 
49617 
49619 
49628 
49622 
406253 
40625 
49627 
49629 
4a631 
Anas 
4035 
44637 
49539 
49641 
49643 
45645 
40647 
40547 
49649 
4n651 
495533 
49655 
49656 
458 
40669 
40663 
49665 
4467 
495697 
40671 
49675 
49675 
40575 
40678 
45680 
49a: 
496895 
49697 
49599 
45692 
45694 
40695 
49599 
49701 


240606 


a4asıl 


340619 


a40647 


340851 


340663 


a40675 


346999 
a40665 


agasıl 
asionl 


{ #alil2 
{ taBö 
{ #a185 


*al05 
349582 


*a97 
a4dbhT 
a40647 
*a97 
*a110 
*alß2 
#255 
#6 

#0 
+aB6 
#397 
a4ass1 


#0 
*a11l2 
#249 
a403978 


*all2 
*aßtlıx 
340932 
*alll 
346754 
#397 


{ #a195 


a46675 
#al05 


#255 
*aß& 
*all2 
ab+4,y 
*a0+4,x 
*alal 
aut, y 
*aß+i,x 
*a100 
ad+2,y 
*al+2,x 
+a99 


---> exponenten von fac und arg gleichm 


% 


immer —} 


FAC := VARIABLE+FAC 


---> konst von (a,y) in ram nach arg 


FAC := ARG+FAC 
fac nicht gleich null: -> 
---} fac :ı= arg 


rundungsstelle von fac 


offset-zeiger auf arg 
expenent von arg 


arg = @: fertig -> 


- exponent von fac 

exponenten gleich: -> 

exponent von fac grö*er: -> 

exp von fac := exp von arg 
vorzeichen von arg 

in fac übernehmen 

differenz der exponenten invertieren 
+ 1 (carry!) 


offset-zeiger für fac 
immer -> 


rundungsstelle von fac 
exp-differenz > 7? 

ja: egalisieren (bytes) -" 
rundungsstelle von fac 
---> egalisieren (bits) 
vorzeichen gleich? 

ja: mantissen addieren -> 
offset-zeiger für fac 

ist x offset-zeiger für arg? 

jas -> 

y ı= offset-zeiger für arg 
beginn der mantissen-subtraktion 


rundungsstelle 


49703 lda ad+l,y 

407066 sbe *ab+l,x 

49708 sta #398 

49710 a40710 bes a40715 ;i kein unterlauf: -> 

49712 jsr 246827 i => mantisse von fac negieren 
49715 a48715 1dy #0 ; fac linksbündig normalisieren 
46717 tya 

49718 clE 

45717 248719 1dx *298 ; höchste stelle 

40721 brne 248797 a nicht mulls > 

aa723 ldx #399 ;ı mantisse um 1 byte nach links 
49725 stx #a989 s» schieben 

49727 ldx #a106 

44729 stx #299 

48731 ldx *alol 

au733 stx #a100 

49735 ldx *all2 

46737 stx *#a1d1 

447239 sty #all2 rundungsstelle := ® 

49741 ade #8 es wurde um 8 bits verschoben 
49743 emp #32 schon um 4 bytes verschoben? 
45745 bne 348719 mein: -> 


49747 246747 1da #0 
49749 345749 sta #397 
45751 346751 sta #al92 


alle mantissen-stellen sind null, 
also exp :ı= ® (als null-flag) 
vorzeichenbyte := 8 


EPFEPPFEL?TERRRBEPFERRBEPT, 


45753 rts 

49754 

49754 340754 adc #386 ; mantissen-addition 

49756 sta #a112 

49758 lda #a161 

49768 adc #319 

49762 sta #al91 

45764 lda #aldBd 

497656 adc *a108 

40768 sta *al0d 

49770 lda *399 

45772 ade #2107 

49774 sta #399 

45776 Ida *#a98 

49778 adc #al0& 

467896 sta #298 

44792 jmp a40818 } 70-> überlauf bearbeiten wenn nötig 
49785 

49795 a49785 adc #1 ı fac so oft um 1 bit nach links 
44787 asl #all2 s schieben, bis das hächste bit der 
45789 rob *alül ; höchsten stelle gesetzt ist 
40791 rol *#aidb 

40793 rol #399 

49795 rol #298 

49797 340797 bpl 246785 

44799 sec ;ı zahl der verschiebungen 

45800 sbe #397 5 - exponent 

4u902 bes 240747 ; positiv: fac = 0-5 

40804 eor #255 } exponent - zahl der verschiebungen 
49906 ade #1 

45808 sta #397 = neuer exponent 


45810 a40818 brc a40826 kein überlaufs -> 


pe 


458812 a4ö812 inc *#a97 ; exponent inkrementieren 


’ 
40814 beq a4%882 ; = 0: overflow -> 
49816 ror #298 ; mantisse um 1 bit nach rechts 
40818 ror *a97 ; schieben (carry = 1!) 
408208 ror *ala0 
46822 ror *a1d1 
40924 ror *all2 
40826 340826 rts 
44827 
409827 240827 Ida *#a102 ; mantisse von fac invertieren 
46829 eor #255 
40831 sta #a162 
4u833 a4a9I3 Ida *398 
40835 eor #255 
468937 sta #298 
49837 lda #399 
40841 eor #255 
40843 sta #397 
46845 Ida *a1®8 
49847 eor #253 
46849 sta #a100 
43851 lda #ai61 
45853 eor #255 
48855 sta #ald1 
46857 lda #alil2 
499597 eor #255 
49861 sta *all2 
40863 inc *all2 ;s und inkrementieren 
49865 bne a48881 
40867 3469867 inc *alßl 
40869 bne a4uBa1 
49971 inc *#al06 
43873 bne a4b881 
49975 inc #299 
44877 bne a46881 
498797 inc *a98 ; bewirkt fac := - fa 
45981 a40881 rts 
44882 
40882 a40982 1Idx #15 ; "overflaw” 
408904 jnp a34435 5 77-> fehlerausgang 
46897 
aaa REGISTER RECHTSVERSCHIEBEN 
45887 
44887 3469887 Idı #437 ı offset-zeiger f funktionsregister 
40899 a40989 Idy *aßt+t4d,x ;i rechtsverschieben um 1 byte 
49871 sty #all? 
40893 ldy #aß+I,x 
40895 sty #aß+4,x 
45897 ldy *aß+2,x 
40899 sty #ad+3,x 
40781 ldy #a0+1l,x 
4903 sty #aö+2,x 
49905 Idy *a194 
49997 sty #aß+1l,x 
40909 249909 adc #8 ; bit-zähler um 8 erhöhen 
40911 bmi 349989 ı noch negativ: -> 
49913 beq 240899 ;s oder null: -> 
4715 sbce #8  bit-zähler um 8 zurücksetzen 
48917 tay 
459718 lda *all2 ;ı rundungsstelle 


an920 bes a46942 ;s ergebnis = ®: fertig -> 


AHI22 ayn922 asl *abtl,x ; höchtes bit der mantisse 
4599724 bcec 349928 ı nicht gesetzts -> 
4992 inc *aß+l,x ; höchste mantissenstelle inkrementieren 
45923 240928 ror #ad+l,x ;ı mantisse um 1 bit nach rechts 
RiE rar *a0+1,x ; schieben 
au932 a48932 ror #an+z,x 
49754 ror #a0+3,% 
45936 ror *aß+4,y 
499738 ror a 
499397 iny ; bitzähler inkrementieren 


aup4n be a40922 ı noch nicht #: -" 
40942 a40942 clc 

459473 rts 

49944 

m ee LH 

4944 

40744 340944 „by 1299900 Fe | 

498949 3240949 by 3 ; paolynomgrad 
49950 ‚by 127 94 86 263 121 ; 8.,434255942 
44955 ‚by 128 19 155 11 108 ı8.,576584541 
4990 „by 128 118 56 147 22 ı  9.76199067597 
49985 ‚by 130 56 170 59 32 ı2,89539067 
49970 a40970 „by 128 53 4 245 52 ı 68.707106781 
49975 a40975 „by 129 535 4 243 52 ı 1.41421356 
49990 240980 „by 128 128000 en 9: 


42985 240995 „by 128 49 114 23 248 ;9.673147181 = In 2 
49998 


49970 340990 jsr a41648 3 > vorzeichen prüfen 

49993 beqg a40997 ı fac = 0 fehler -} 

49995 bpl asıann s face >90: ok -> 

40997 346997 jmp a39196 5 => "illegal quantity" 

41000 

41000 adlaad Ida *a97 ; exponent-byte von fac 

araaz she #127 3 - 128 (carry!) 

41an4 pha 5 = exponent "pur’ auf stack legen 
41005 Ida #128 » damit wird fac in den bereich 
a1a07 sta #297 ı 0.9 %= x % 1 transformiert 
41009 lda #1,240970 

41o11 ldy #h,249970 

AlalE jsr a41962 3 =: fac ı= fac + konst 

41016 Ida #1,348975 

41018 ldy #h, a49975 

41020 jsr a41674 1 77: fac :ı= konst / fac 

ALOE lda #1,246944 

41825 ldy #h, 248944 

41927 jsr 341068 3 ——-} fac := kanst - fac 


41030 Ida #1,34997497 
idy #h,240949 
jsr a42675 I => polynom auswerten 
Ida #1, 240986 
Idy #h, 2499789 


jsr a4lah2 B 
pla ; 
41945 jisr 241994 H u addieren 
aiuas Ida #1,240985 
41050 ldy #h, 340985 
4ımgz a4laS2 jsr a41130 B ’ konstante aus ron nach arg 


419553 jmp a41033 H fac ı= fac # arg 


20 pe FAC ss FAb + 8,5 

41059 

41558 a41058 Ida #1,342407 ; adresse der konstanten 6.3 

ana ldy #h,242403 

410a2 alas jsr a41196 3 ==> konstante aus rom mach arg 
41045 imp a4bh0& 3 =0-> fac ı= arg + fac 

41968 

ee FAC ı:= KONST - FRSG 
41968 

41n6R a4iasB jsr a4lı1Bn 3 7=-> konstante aus rom nach arg 
4171 jmnp a40595 $ =} fac ı= arg - Fac 

41974 

OT ——— FAC := KONST 7 FAC 
41674 

41974 a41074 jsr a41189% ’ » konstante aus rom nach arg 
41577 jmp a41367 H » fac ı= arg / fac 

41080 

re FAC := VARIABLE * FAG 
41090 

41080 a41090 jsr a41223 3 ==> konst von (a,y) in ram nach arg 
41683 

ZIORS een FAC := ARS#+FAC 

A103 

41083 a4ı1053 bne 341998 ; fac micht null: > 

41685 jimp a41179 y) ar is 

41088 

41089 a41033 jsr 341271 5 777: exponent berechnen 

41991 Ida #8 iı funktionsregister löschen 

41997 sta %233 

41095 sta #339 

41097 sta ta40 

419997 sta *a4l 

41191 lda *a112 

41103 isr 241129 3-5 multiplizieren 

41106 lda *#a101 

41108 jsr a41129 ; > multiplizieren 

41tıl lda #100 

41113 jsr a41129 3 ——-> multiplizieren 

41116 lda #399 

41118 jsr a41129 ? ---> multiplizieren 

41121 lda #298 

41123 jer 841129 3 > multiplizieren 

all2s jimp »41484 5 ---> erg nach fac, normalisieren 
41129 

41129 a41129 bne a41174 

41131 imp 2449897 3 ==> funktionsreg nach rechts schieben 
41174 

a MULTIFLIKATION 
41134 

41134 a41134 1sr a ; für jedes in a gesetzte bit wird 
41135 ora #128 s arg zum funktionsregister addiert, 
41137 341137 tay s dann wird dieses um I bit nach 
411238 bec a41165 s rechts verschoben; ist ein bit 
41140 ele nicht gesetzt, so wird nur 

41141 lda *a41 ; verschoben 

41143 adc *a199 

41145 sta *a41 

41147 lda *a40 

41149 adc *a108 


41151 sta #246 


Aalı1SE 
41133 
41157 
41159 
4llsl 
41163 
41165 
41167 
41169 
a117ı 
41173 
41175 
41178 
41177 
41179 
41196 


41180 3 


41196 
41196 
411892 
41184 
41186 
41188 
41190 
41191 
41193 
41195 
41195 
411978 
41zan 
41201 
41203 
41205 
41267 
41269 
41211 
41215 
41215 
41216 
41218 
41228 


41222 


41225 


a411653 


a411797 


a41190 


a41223 


#a59 
*3107 
*a29 
*a38 
+allh 
#238 
#al8 
*a9 
ads 
*adl 
*all2 


a 
a41137 


*a24 h 
*a59 H 


(aäd),y H 
*a159 


(a34),y 
*#al09 


(ald),y 
*a107 


(a34),y 

*allo 

*a1l62 

#alll - 
+allo 

#128 

*alös 


*aı4 5 
*a35 B 


‚#4 


alzao H 
*xal99 h 


alzao 
xalad 


al2oo ’ 
*a197 


alzan } 
#allb 
#alß2 
*alll 5 


ROM 


l,quelladresse 
Kiyans 


konstante nach arg K 


vorzeichen von fac *# 


exponent von fac (als null-flag) 


AUS RAM 


l,quelladresse 
Rau 


lda (al4),y 


variableninhalt nach arg kopieren 


Ida (al4),y 
---> Ida (a34),y 


---> Ida (al4)ıy 


vorzeichen von fac * 


NACH 


opieren 


arg 


NACH 


arg 


ARG 


ARS 


41258 Ida #a119 

41258 ara #129 

41268 sta #310& 

41262 dey 

41263 isr al2oa 3 > Ida (al4),y 

41266 sta #%3105 

41258 Ida #a97 ; exponent von fac lals null-flag) 
41276 rts 

41271 

N EXFONENTEN ADDIEREN 
41271 


41271 a41271 Ida *%a105 
41273 341273 beg a41366 


exponent von arg 


=u: -> 


PRBErT 


412753 elc 

412786 adce #397 i + expanent von fac 

41278 boc 241284 i kein überlauf: > 

41288 bmi a4l3ıl ; überlauf und erg > 127: overflaw -> 
41292 eie 

41283 “by 44 

41284 241284 bpl 241306 ; kein überlauf u erg © 128: fertig -> 
41296 adc #128 

41238 sta #397 ; neuer exponent 

41298 bne a41295 sı nicht null: -> 

41292 imp 345751 I => facı= 

41295 

41295 241295 Ida #alll ; vorzeichen von fac #* arg 
41297 sta #all2 ; = vorzeichen von fac 
41299 rts 

417300 

bie ML 7 BOT nn Bann Sn nn 110 nn = 

41300 

41300 a41300 1Ida *al02 ; vorzeichen von fac 

41302 eor #255 i invertieren 

41304 bmi a41511 ; ergebnis negativ: -> 
41706 adııoa pla 

41307 pla 

41508 imp 249747 sr fac ı=90 

41311 

415311 a4iSıll jmp a46892 3 om "overtlow' 

41314 

a A —— FAC := FAC + 1® 
41314 

41314 341314 jsr 341617 3-7 arg ı= fac 

41317 tax ; exponent von fac 

41318 begq a41336 ‚= Gb: face =0-5 

41320 cle 

41321 ade #2 ı exp + 2 entspricht fac * 4 
a1SER bes a4iall ; überlauf: fehler -> 
41325 34132 ldz #0 

41327 stx #alli 

41327 jsr 246617 3 > fac := fac +arg 
41322 inc #397 sı exp + 1 entspricht fac # 2 
a1S24 beq a4131l ; überlauf: fehler -> 
41326 a41l336 rts 

41337 

KK — 

415337 

41337 a41337 ‚by 1322 329206 ; gk-konstante 16 

41342 3 


41242 341342 ld» #20 "division by zero” 
41544 jmp 234435 3 070-> fehlerausgang 


Er 


41388 
41390 
41392 
41394 
41396 
41398 
41450 
41402 
41404 
41406 
41409 
41419 
41412 
41413 
41414 
41416 
41417 
41419 
41421 
41423 
41425 
41426 
41428 
41430 
41432 
41434 
41436 
41438 
41440 
41442 
41442 
41443 
41445 
41447 
41449 
41451 
41453 


a4135s 


a41564 
a41367 


a41378 


a41412 


a41425 


«41428 


341442 


#1 


341617 


ı #1,241337 


#h,a41337 


ı #0 
x» *alll 


341505 


ı a41567 


adızEE 
a41342 
aglasz 
#0 


#397 


ı #397 


a4ı27ı 
#397 
a4dısil 


el 
u Fr 


#alüs 
*a98 
ad4ıaız 
*a107 
*a97 
a41412 
#ala8 
*alon 
a41412 
*a109 


y *a101 


a 
a41425 


#a4lıx 
a41471 
a41475 
#1 


a41442 
*al97 
*al08 
*a167 
*a1B6 
a41412 
a41396 
a41412 


+a109 
*alöl 
*+a109 
*alıa 
*+a108 
*albd 


FAC := FAC / 18 


3 =: fac runden, arg := fec 


:; vorzeichen von fac 
= arg / Fac 


FAC := ARSGS / FA 


I our arg aus la,y) im ram laden 
ı fac = bi 5 
3 => fac runden 


2 


vorzeichen des expanenten von 
ı fac wechseln 


$ ==> exp und vorzeichen ermitteln 

; exponent erhöhen 

; überlauf: fehler -> 

ı offsetzeiger {in zera page zyklisch!) 


; arg mit fac vergleichen 


; vergleichsergebnis auf stack legen 


; ergebnis im funktionsreg aufbauen 
affset x = Bı -> 
offset x > 0: -> 


vergleichsergebris 
s arg Fe facı - 
s arg um 1 bit nach links schieben 


: überlauf: > 
höchstes bit. gesetzt: -> 
immer > 


er 


; mantisse von fac von der 
ı mantisse von arg subtrahieren 


41455 lda #a197 

41437 sbc *a99 

41459 sta *#a107 

41481 lda *a10& 

41463 sbc *a98 

41465 sta *ald6 

41467 tya 

41468 jmp a41428 3 777> zurück zum verschieben 
41471 

41471 a41471 Ida #64 

41473 bne 241425 

41475 

41475 341475 asl a 

41476 asl a 

41477 asl a 

41478 asl a 

41479 asl a 

414896 asl a 

41481 sta #all2 ; rundungsstelle von fac 
41483 plp 

41484 a41484 Ida *a39 ; ergebnis nach fac kopieren 
41486 sta #278 

41488 Ida #259 

41498 sta #399 

41492 lda #340 

41494 sta #al00 

41496 lda #a4i 

41498 sta #alß1 

41500 imp a46715 } => fac normalisieren 
41503 

2505 gu (ANY) NACH FAC 
41563 

41503 a415063  clec ı flag f ’laden aus ram’ 
41564 ‚by 36 

41505 a41505 sec ı flag f "laden aus rom’ 
4156 sta #a34  l,quelladresse 

41508 sty #235 ih, 

41518 ldy #4 

41512 jisr a41760 ı > \da (a34),y 
41515 sta *alol 

41517 dey 

41518 jisr a41768 ; ---> Ida (a34),y 
41521 sta *aldd 

41323 dey 

41524 isr 341766 ı => Ida la34),y 
41527 sta #299 

41529 dey 

41530 jsr a41768 3 ---> lda (aj4),y 
41533 sta #a1ß2 ;ı vorzeichen 

41539 ora #128 

41537 sta #398 

41539 dey 

41549 jsr 341769 3 > lda (a34),y 
415343 sta #297 ; exponent 

41545 sty #all2 s rundungsstelle := & 


41547 rts 


een FAC NACH MEMORY 
41548 

41548 a41548 1dx #292 ; zielbereich a92,...,396 
41550 by 44 

41551 a41551 1dı #397 ; zielbereich 397,.,..,291 
415353 ldy #6 

41555 beq 341561 

41557 

415357 a41557 1dx #373 ; l,startadr d zielbereichs 
41559 ldy *a74 R. Nasa 

41561 a4lgsl jsr a4l632 3} ==> fac runden 

41564 stx ta34 ı l1,zielbereichszeiger 
41365 sty #a33 ns 

41568 lcdy #4 

41578 lda *a1®1 

41572 sta (a34),y 

41574 dey 

41575 Ida *a1ßo 

41577 sta (a34),y 

41579 dey 

41589 lda #399 

41582 sta (a34),y 

41584 dey 

415935 lda #a182 

41387 ora #127 

41589 and #398 

41591 sta (aS4),y 

41593 dey 

41594 ida #397 

4153975 sta (a34),y 

41578 sty #all2 ; rundungsstelle := & 
41ac0 rts 

4lael 

ISDN ee ARE NACH FAR 
A161 

41501 a41&01 Ida *#allo 

41607 a41603 sta #al62 

41605 iIdk #5 

41567 a41607 1da *alß4,x 

41459 sta #a96,x 

4181 dex 

41512 bne 241667 

41814 stx #all2 

4161& rts 

41617 

41617 Ju FAC NACH ARS 
41617 

41517 a41617 jsr a41632 3 ==> fac runden 


41629 a41l620 Idx #6 
41622 a4ls22 Ida #a96,x 


41524 sta #a1ld4,x 
416526 dex 

41627 bne a41622 
416529 stx #allz 


41631 a4lali rts 


rss Jr FAC RUNDEN 

41632 

416532 a41632 Ida #397 ;ı fac = 6? 

41634 begq a4ls31 s ja: fertig -> 

41636 asl #all2 ; rundungsstelle 

41639 bee a41631 ı < 128: fertig -> 

41640 a41640 jsr a40867 3 —07> mantisse um 1 erhöhen 
416473 bne a416531 s ergebnis nicht null: fertig -> 
41645 jmp 248812 } 70-> fac normalisieren 

41548 

BIRD REED YORZEIECHEN ERHTTTEELN 
41548 

41648 a41648 Ida #297 ı fac = 0? 

41650 beq a4lösil ı ja > 

41652 a41652 1da *alü2 ; vorzeichen 


41654 a41454 rol a negativ setzt carry 


416553 lda #255 

41657 bes a4i1ö6l s negativ: a = 255 -> 

41559 Ida #1 ; positive a = 

41b6l agis6l rts 

41662 

a  —— SGN 

41662 

41662 a41662 jsr 341648 3 777} vorzeichen prüfen 

41665 a41645 sta *a9B ; höchste stelle := 1 / a / 255 
41667 Ida #8 

41569 sta #399 ; 2. stelle := ®& 

41671 ldı #136 ; exponent f byte-wert 

41673 a41673 1da #398 ; höchste stelle 

41675 eor #255 ; invertieren 

41677 rol a ;ı & und positiv setzt carry 
41678 a41678 Ida #0 

41680 sta #al6ßl ; 4, stelle := & 

41682 sta #a100 ; I. stelle ı= & 

41684 a41684 sta #397 ; exponent 

41696 sta *all2 ; rundungsstelle 

41688 sta *#a162 : vorzeichen 

41690 . jmp 340716 3 77-> negieren wenn cc, normalisieren 
41593 

a nun ABS 

41693 

41693 a41693 1sr *a192 s vorzeichen: bit 7 löschen 
41695 rts 

41696 

u ZAHLENVERBLEICH 
41695 

41696 a41695 sta *#als ; l,adresse der vergleichszahl 
41698 sty #237 3 RAysas 

41708 ldy #8 

41782 lda ta3ö),y ; exponent 

41704 iny 

41705 tax 

41706 begq 241648 ; exp = 6, also zahl = 6: -"> 
41708 lda (aS6),y ; höchste stelle der vergleichszahl 
41718 eor #al02 ; vorzeichen von fac 

41712 bmi 341652 » vorzeichen verschieden: -> 
41714 cpx *a97 ; exponenten gleich”? 

41716 bne 341751 » nein: -> 

41718 lda (al6),y ; höchste stelle der vergleichszahl 
41726 ora #128 ; vorzeichenbit setzen 


41722 
41724 
41726 
41727 
41729 
41731 
41733 
41734 
41736 
41738 
41748 
41741 
41745 
41745 
41747 
41749 
41751 
41753 
41755 
41757 
41766 
41766 
41768 
41758 
41762 
41764 
417867 
41767 
41767 
41787 
41769 
41771 
41772 
41774 
41776 
41778 
41779 
41781 
41783 
41786 
41797 
41799 
41791 
41793 
417976 
41798 
41799 
41799 
41806 
41882 
41804 
41806 
41908 
41810 
41813 
41915 


a41751 


a41757 


a41767 


=41797 


a41798 


a41799 


camp 
bne 
inv 
lda 
emp 
be 
iny 
lda 
cmp 
bne 
iny 
Ida 
cap 
lda 
sbc 
beqg 
lda 
bee 
eor 


#298 
341751 


(a36) ,y 
+299 
a41751 


(a36),y 
#a100 
a41751 


#127 
*all2 
(al6),y 

*a191 
a41798 
*a102 
a41757 
#233 


241654 


#160 


: *a102 


a41787 


#253 
#3124 
2403733 


x #397 


#249 
a41799 
240969 
#a194 


ı #a1l2 


#128 
+2989 
*a78 
*a978 
EEE Be 
xalnd 


Seite 


85 41722 


’ 
. 
’ 


er an ee 


EPPEPRRBEFT 


PP PEEFFESRREEFPERRRBE 


PEERBRErT 


= hächste stelle von fac? 
nein: -> 


2. stelle der vergleichszahl 
= 2. stelle von fac? 
nein: -> 


5. stelle der vergleichszahl 
= 7. stelle von fac? 
nein: => 


rundungsstelle © 128 setzt carry 
4. stelle von vergleichszahl 

- 4. stelle von fac 

= 6: beide zahlen gleich -> 
vorzeichen von fac 
vergleichszahl kleiner: -" 


---> ergebnis nach a 


aus rom laden 
cs: fertig -> 
---; Ida (a}4),y aus ram 


GK-INTEGER-WANDLUNS 


fac = 9? 


jan = 


exponent transformieren 
fac negativ? 

neint ==> 

exponent - 1658 


---: fac negieren 


offset-zeiger für fac 
exponent - 165 = - 5? 

jas > 

--- fac nach rechts schieben 
= 6 


exponent — 156 

vorzeichen von fac 

bit 7 isolieren 

1. stelle 1 bit nach rechts 

bit 7 einodern 

ergebnis als 1. stelle abspeichern 
-——; fac bitweise nach rechts schieben 
=6 


a INT 
41816 
41816 a4iSis Ida #397 ; exponert 
41818 cap #168 5 1607 
415920 bes 341954 ı neins fac ist ganzzahlig -> 
41822 isr a41787 3 mo: gk in integer wandeln 
41925 sty #ali? ! rundungsstelle := ® 
lda #3182 ı vorzeichen 
sty #a192 I :=08 


eor #128 ; micht negatiw 
rol a ı setzt carıry 
Ida #166 H 


exponent für integer 
sta #397 
lda *ai6ßi ; letzte stelle 
sta #27 ı für potenzier-rautine merken 
jinp 349719 1 mu" fac normalisieren 
a41545 sta #298 ı mantisse von fac mit nullen füllen 
sta #397 
sta #al00 
sta *alöi 
tray Iiyıza 


a41854 rts 


m STRINGB-GK-WANDLUNG 
a4ı855 Idy #0 1 295422..a103 löschen 
ldx #19 
a41859 sty #a95,% 
dex 
bpl a41859 
bec 241891 ı ziffer in ar -> 
emp #’- ı minuszeichen? 
hne 341874 nein: => 
stx *al03 ı = 2335 
beq 341978 ;s Immer -” 
a41874 cmp #'’+ 
bne a41983 
a41978 jsr alil3? 3 ---> chrget 
a4ia91 bec 341974 iı ziffers —> 
ı a41883 cmp #’. 
beq a41933 
cmp #’e ;ı aus exponential-darstellung 
bne a419397 
jsr all39 3 ---> chrget 
bcec 241919 sı ziffer: -= 
cmp #171 ı °-" token 
beq 341914 
cmp #"- 
beq 341914 
cmp #178 ı '+" token 
beg a41716 
emp #’+ 
beq a41916 


bne a41921 


41914 a41914 vor *#a96 setzt bit 7 


° 
41916 a4i9ld ;sr all39 3 > chrget 
41919 241919 bcc a42613 s ziffer: -> 
41921 341921 bit #296 ; bit 7 gesetzt? 
41923 bpl 341937 ı nein: -} 
41925 Ida #0 
41927 sec 
4192 sbc #394 
41930 jmp 341941 ı 
41933 
41933 ayı1933 ror *a95 s aufruf durch dezimalpunkt 
41935 bit #395 
41937 bvc 341878 


41939 241937 Ida *394 
41741 a41941 sec 


41942 sbc *a93 

41944 sta #394 

41744 begqg 341966 

41948 bpl 341959 

41950 a41950 jsr 241347 307-3 fac ı= fac / 18 

41953 inc *a94 

41955 bne 241956 

419537 beq 341965 

41959 

41959 a419539 jsr a41314 3 ==> fac ı= fac # 10 

41962 dec #394 

41964 bre 341959 

41966 341966 Ida #a10T 

41968 bmi 241971 

41970 rts 

41971 

41971 a41971 jmp 342535 # => voerzeichen von fac wechseln 
41974 

419774 341974 pha ; aufruf durch mantissen-ziffer 
41975 bit #295 

41977 bpl 241981 

419797 inc *a93 

41981 341981 jsr a41314 3 => fac ı= fac # 10 

41784 pla 

41985 sec 

41986 sbe #’0 

41988 jsr a41994 3 70-> stelle zu fac addieren 
41971 jmp a41878 3 ===> nächstes zeichen 

41994 

41794 a41994 pha 

41995 jsr a41617 3 =-> arg := fac 

41998 pla 

41999 jsr 341665 } ==> höchste stelle von fac := a 
4202 lda #al1® ı vorzeichen von arg 

42004 eor #al92 ; vorzeichen von fac 

42006 sta #alll ; vorzeichen von arg * fac 
42008 ldx #397 ; exponent von fac 

42618 jmp a40606 3 > fac ı= fac targ 
42813 

42913 a42013 Ida #394 ; aufruf durch exponent-ziffer 
42015 emp #18 

42017 bcec 242028 

420197 lda #168 

a2az1 bit #396 

42023 bmi 242847 


420925 jimp 246892 ---} "’overflow” 


. 


3 a4au28 asl a 


PR 
gs 


idy #5 

sta *a1l20 

isr alla? ı => Ida (a5) ,y 
adc *a120 


sbe #'8 
a42047 sta #294 
jimp a41916 3 ---> nächstes zeichen 


ee KONSTANTEN 


429g 


42052 a42652 „by 1595 62 189 31 253 ; 99999999.9 
a2057 a426057 „by 159 116 167 59 ; 97779797997 


ı a420h2 „by 159 118 107 49 0 i 190000000 


EEE ZEILENNR AUSGEREN 

42567 

42967 a42667  jsr a65357 3 =>” in ” ausgeben 

426706 iv’ an" 9 

42973 a42075 Ida #358 ; h,zeilennummer 

42677 ld #337 s Isuun 

42979 

BROT ESS nannte INTEGER IA,KH AUSGSEBEN 
42079 
42377 242979 sta #a99 ; höchste mantissenstelle von fac 
4aual stx *a997 ; 2, stelle 
42095 ldk #144 ; exponent für integer 

42095 sec ; verhindert negierung der mantisse 
42006 jisr 241678 3 ---> fac mit nullen auffüllen 
42589 242097 3 77-> gk in string wandeln 

42092 3 => string ausgeben 

42695 
a un GE-STRING-WANDLUNG 
42995 

42095 342995 Idy #1 ; offsetzeiger in stringpuffer 
42097 342897 Ida #’ 

2099 bit #a182 ; vorzeichen von fac negativ? 
aa bpl a42105 i meins = 

42193 Ida #’- 

42105 342105 sta aljs-l,y ; 1. stelle des stringpuffers 
42108 sta *alß2 s vorzeichen von fac 

42118 sty *a113 

42112 iny 

A213 Ida #6 
42115 Idı #397 ; exponent von fac 

42117 bne a42122 s nicht nulls -> 
42119 jnp a42396 3 7-3 °0” in puffer, abschlu” 
42122 

42122 a42l22 Ida #6 
42124 cp #128 } exponent von fac 

42125 beq a42138 ı 5% Bcı5 1 5 


42128 bes a421397 i fac deli 


42154 
42156 
421597 
42161 
42163 
42166 
42158 
42178 
42178 
42173 
42175 
42177 
42177 
42190 
42183 
42185 
42197 
42189 
42195 
42172 
42194 
421976 
42199 
42199 
42201 
42282 
42204 
42206 
42208 
42209 
42211 
42213 
42215 
42217 
42218 
4222 


42222 


42224 
42226 
4222 
42230 
42232 
42234 
42236 
42238 
42239 
2242 
42244 
42246 
42249 


a42137 
agzi4l 


2 a42152 


a42170 


a42177 
a42180 


a4zzar 


a42230 
a42232 
a42234 
a42236 


; #h, 3420 


ı #1,a42062 


#h 242062 
a41952 
4247 


ı #aP5 


#1,242057 
#h, 342857 
341696 
342180 


a41596 
adzia: 
342177 
a4ı514 
#a95 

a4z2132 


a41347 
*a93 
ad214l 


a4158 
a41767 


a42282 


#255 


#2 
*a94 


x #aF3 


agzzl3 
a42232 


*allS 
#’. 


a2ss-l,y 


a42230 
#0 


a2sa-1l,y 
*alld 
#0 


x #128 


*alöol 


ag2499+3,y 
*aldl 
#alaa 


a42408+2, y 


*alto 


a a 


u: fac ı= fac # konst 
= 9 
-9 für fac © 1, sonst = Ö 


---} fac mit konst vergleichen 
gleich: -" 
fac grö”ers > 


---> fac mit konst vergleichen 
gleicht -> 

fac grö*er: -> 

---" fac ı= fac # 18 


immer > 


= fac / 18 


! 
e 
pi 
n 

Il 


immer —> 


> fac ı= fac + 8,5 
> gkE-integer-wandlung 


fac wurde in den bereich le+08, ...; 
le+09 transformiert; (a92} enthält 
den korrigierenden exponenten 
betrag der zahl © 8,61: -> 


betrag der zahl > le+a9ı 5 


exp, wenn 0,01 «= betr X 1e+69 


@.1 «= betrag & 
9,01 «= betrag 


[1 


8,1 ©= betrag © li > 


zeiger in konstantentabelle 


durch abwechselnde subtraktion und 
addition der entsprechenden stellen- 
werte aus der tabelle werden die 
einzelnen ziffern des zahlenstrings 
nacheinander berechnet 


42251 lda *a99 
42233 ade a42408+1,y 
42236 sta #299 
42253 lda #398 
42268 adc a424099,y 
2 sta #298 

inx 

bes a42272 
42258 bpl a4223 
42270 bmi 342274 
42272 


42272 a42272 bmi 242236 
2274 242274 txa 
42273 bec a42281 ; komplement addiert? nein: -" 


42277 eor #255 i ergebnis bzgl 1® komplementieren 
42279 adc #18 
42281 a42281 adc #47 ; ergibt den ziffernkode 
A22OE iny ; tabellenzeiger auf mächsten eintrag 
42284 iny 
42295 iny 
4228& iny 
42287 sty #a7l 
42289 ldy #a113 
42291 iny 
42292 tax 
422973 and #127 ; ziffernkode 
2295 sta a2sa-l,y ; in puffer bringen 
42298 der *a93 
42308 bne a42308 i einerstelle noch nicht erreicht: -> 
42302 lda #'. 
42204 iny 
42305 sta a23ös-l,y 
42308 a42I08 sty #alll 
42318 ldy *a7i 
txa 
eor #2 
and # 
tax 
cpy #34 
begq a42325 ; ende bei gk-string-wandlung: -> 
copy #48 ; ende bei ti$-erzeugung erreicht? 
bne a42236 sı nein: -> 
a42326 1Idy *allE 
a4232 lda a256-1,y ; letzte von ® verschiedene stelle 
dey ; suchen 
cmp #"0 
beg 342328 
cap #". 
beq 342341 
iny 
a42341 Ida #°+ 
ldx #394 ; 8.01 «= betrag © le+a9? 
beqg 2423973 I jas > 
bpl 342357 ;i positiver zehnerexponent: -> 
lda #6 ; exponenten generieren 
. sec 
42332 sbc #294 
42354 tax 


42335 Ida #’- 


42357 a42357 sta a2istl,y 


42369 lda #’e 
422362 sta a23s,y 
42365 txa ;ı stellen des exponenten 
42366 ld #47 i generieren 
2368 sec 
42369 242369 ins 
42370 sbce #18 
42372 bes 3442369 
42374 adc #58 ; einerstelle 
42376 sta aljöri,y 
42379 txa ; zehnerstelle 
423890 sta a2ö6t2,y 
42383 Ida #8 ; endemarke 
42385 sta atd6+4,y 
42388 beq a42398 ; immer -> 
423970 
42370 a42390 sta a2I6-1,y 
42393 a42393 Ida #0 
42395 sta a2ös,y 
42398 a42398 Ida #1,3256 ; startadresse des stringpuffers 
42400 lcdy #h,a256 
424n2 rts 
42403 
42403 a42403 „by 1830090 ; 9.5 
a24ug 
42408 3424068 „by 256 16 II 0 ; 100 aoa a6 konstanten für 
42412 ‚by & 152 156 128 Bl 19 009 500 gk-string-wandlung 
42416 ‚by 255 248 189 192 B -1 00 5008 
42420 ‚by & 1 1534 168 B 100 306 
424724 ‚by 2535 255 216 240 3 -18 008 
42428 „by & 83 232 3 1 009 
42432 ‚by 255 2595 2559 156 H -188 
42456 ‚byaoamn 18 ; 18 
42446 “by 255 255 255 255 ’ = 
42444 
42444 ‚by 255 227 19 128 ; -2 150 300 konstanten für 
424489 ‚by 8 3 75 192 H 216 900 erzeugung von ti$ 
42452 ‚by 255 255 115 96 H -36 300 
42456 ‚by 508 14 16 B 3 600 
42460 „by 255 255 253 168 H 508 
42464 ‚byb5 0 60 B 68 
42468 
42468 3 -------------- SeaR 
42468 
42468 a42468 jsr 241617 5 => fac runden, arg := fac 
42471 ida #1,242403 
42473 ldy #h, 242403 
42475 jsr a41505 3 ---> konstante 8.5 nach fac 
42478 
ang FAC := ARG HOCH FAC 
2478 
42478 342478 beq a42592 ı fac = 0: 
424899 Ida #315 s arg = BT 
42482 bne 342487 s nein: > 


42484 imp 246749 3 => fac ı= d 


42487 342487 1dx #1,a78 


42499 ldy #h,a78 

42491 jsr a41561 3 => fac nach (x,y) kopieren 
42494 lda *a11ß ; vorzeichen von arg 

42496 bpl 342513 ; positiv: -> 

42498 jsr a41B16 ı ==> int schneidet nachkommastellen ab 
42501 lda #1,278 

42503 ldy #h,a78 

42505 jsr a41696 ; > vergleicht fac mit int(fac) 
42508 brne a42513 s nicht gleich: -} 

42510 tya =4 

42511 ldy #37 ; letzte stelle des exponenten (int!) 
42513 a42513 jsr a41605 3 -7-> fac := betrag von arg 
42516 tya 

42517 pha ; letzte exponentenstelle 

42518 jsr 240990 ı > fac := In(fac) 

42521 lda #1,a78 

42523 ldy #h,a78 

42525 jsr 341980 ı => fac := fac * konstante 
42528 jsr a42592 3 => fac ı= exp(fac) 

42531 pla ; letzte exponentenstelle 

42532 lsr a ; exponent geradzahlig? 

42533 bec a42545 ;s ja —> 

42535 

Be VORZEICHENWECHSEL 
42535 

42535 a42535 1da #397 i fac = 07 

42537 beq a42545 ; jas > 

42539 lda *alß2 ; vorzeichen 

42541 eor #255 ;ı invertieren 

42543 sta #ald2 

42545 342545 rts 

42546 

a EXP 

42546 


1.44269564 
polynomgrad 


42546 a42546 .by 129 56 1708 59 41 
42551 342551 .by 7 


42332 ‚by 113 52 88 62 86 ;2.14987637 e-05 
42557 ‚by il& 22 126 179 27 ı 1.43523149 e-04 
42562 “by 119 47 238 227 133 5 1.342253498 e-93 
42567 .by 122 29 132 28 42 3 9,61401701 e-05 
425372 ‚by 124 997 87 88 10 ı 0.055590391269 

42577 „by 126 117 253 231 198 5, 240224385 
42592 ‚by 128 49 114 24 16 ; 8.693147186 = In 2 
42597 .by 129709000 s 1 

42592 

42592 a42592 Ida #1,242545 

42594 ldy #h, 242546 

42596 jsr 341052 ı 7-7 fac ı= fac # konst 
42599 lda *al12 ; rundungsstelle 

42601 adc #86 ; +86 

42603 bec 242608 s < 256: -> 

42605 jsr 241640 3 7773 fac um 1 erhöhen 
42608 a42608 sta *aB6 ; rundungsstelle + 9% 
42618 jsr a4162% 3 => arg := fac 
42613 lda #397 ; exponent von fac 
42615 emp #136 

42617 bec a42622 ;s < 136: -> 


42619 a42619 jsr a41308 sr "a overflaows "1 8 


Seite 

42622 a42622 jsr a41816 
426253 lda #37 
42627 elc 

42628 adc #129 
42630 beq 342619 
42632 sec 

42633 sbc #1 

42635 pha 

42636 lds #5 

42638 3426398 Ida #a105,x 
42640 ldy #a97,x 
42642 sta #397,x 
42644 sty #al05,x 
42646 dex 

42647 bpl 3242638 
42649 lda *aß& 
42651 sta tall2 
426553 jsr 340583 
42656 jsr 242535 
2659 Ida #1,a42551 
42661 ldy #h, 242551 
42663 jsr 242697 
42666 lda #0 

42668 sta #alll 
42678 pla 

42671 jsr a41273 
42674 rts 

42675 

42675 31-2 
426753 
42675 3 regl = a97,...,a91 
426753 

42675 2426753 sta #all} 
42677 sty #*alld 
424579 jsr a415351 
42682 lda #387 
42684 isr 341980 
42687 jsr 342701 
2670 lda #1,387 
42692 ldy #h,397 
42594 jmp 341099 
42697 

42697 I 7------- m 
42697 
42697 3 reg = 3a92,2..,296 
2697 
42697 342697 

42599 
42701 342701 

2704 

42706 

42708 

2718 

42711 

42712 bne a4271& 
Aa714 ine *a1ll4 
42Ti& a42716 sta *all 
42718 Idy #*alld 


a 
" 


® 


> int entfernt nachkommastellen 
ganzzahliger anteil 


fac = 127: > 


arg mit fac vertauschen 


rundungsstelle 

---> fac := arg - fac 
=--> fac ı= - fac 

---:> polynom auswerten 
vorzeichen von fac #* arg 


> exponenten addieren 


FOLYNOMAUSWERTUNG 


adresse des polynaomgrads 


fac runden, nach regi kopieren 


=--> fac := fac # regl 
> polynam auswerten 


> fac ı= fac # regl 


HORNER-ALGORITHMUS 


adresse des nolynomgrads 
---> fac nach reg? kopieren 
palynomngrad 

als zähler einrichten 
zeiger auf anfang der 
koeffiziententabelle setzen 


42728 


42723 


42737 
42749 
42742 
42744 
42746 
42748 
42749 
42749 
42749 
42749 
42734 
427539 
42737 
42762 
42764 
42766 
42769 
42771 
42774 
42776 
42779 
42781 
42784 
27896 
42789 
42789 
42771 
42793 
42796 
42798 
42808 
428653 
42865 
42897 
423108 
42812 
42814 
42816 
42918 
42820 
42922 
42924 
42926 
428289 
42830 
42832 
2834 
42836 
42838 
42841 
42843 
429459 


a42726 


#1,392 
#h,a92 
- +a198 


ı a42728 


a42749 
a427324 


‚by 1253 


104 40 


48 122 8 
177 76 8 
a4275397 3416483 
a42318 
3427997 
adsszas 
*+a98 
asa2al 
ı all 
a65282 
*399 
asT283 
ı talbıl 
a42B26 
a42789 #1,a1285 
#h,al293 
a41505 
#1,a42749 
#h, 242749 
a41052 

ı #1,242754 
#h, a42754 
a41062 

ı talbi 
*a98 
#a101 

{ *a98 

ı #299 
*a1l00 
*399 
#al00 

#9 

+al02 
+397 
*allz2 
#128 

*397 
a48715 
#1, a1293 
: #h,a1293 
a41561 


ad2818 


a42845 


er 


u 


---> fac s= fac # koeffizient 
zeiger auf nächsten 
koeffizienten erhöhen 


fac + koeffizient 


zähler dekrementieren 
noch nicht. nulls -# 


RND 


zufallszahl 1 
zufallszahl 2 
---" yorzeichen von fac 
negativ: -> 
positiv: -> 
bytes aus timer lesen 
und vermischt nach fac bringen 


adresse der letzten zufallszahl 


> zufallszahl nach fac 
fac * konst 


> fac := 


fac + konst 
fac vertauschen 


---} fac = 
stellen von 


vorzeichen von fac 
exponent von fac 
rundungsstelle 


exponent 
---" fac normalisieren 


> fac runden und abspeichern 


BASIEC-STACK HILFSROUT 


42848 
a2B48 
42848 
42850 
42852 
2854 
42856 
42857 
42857 
2859 
42961 
42863 
42965 
42866 
42866 
42867 
42868 
42876 
42872 
42874 
42876 
42877 
42877 
42877 
42877 
42878 
42886 
42882 
42885 
42885 
42838 
42896 
42891 
42891 
42994 
42896 
42897 
42897 
42900 
42902 
42903 
42963 
42904 
42997 
42910 
42911 
42912 
42914 
42915 
42917 
42917 
42918 
42918 
42921 
42924 
42926 
42927 
42927 
42930 
42932 


a42843 


a42837 


a42866 


a42876 


a42895 


242891 


a42897 


a42903 


a42917 


a42918 


a42927 


342982 


ı #30 


a34435 
365472 
342877 


365499 
a42877 


265487 
a42877 


265481 


a43256 


a42917 


242877 


3653478 
343256 
a42977 


a65308 
a42877 


u 0. 


are 


PPTESPRBErT| 


stack-zeiger umspeichern 


stack-zeiger um y erhöhen 


KEERNAL-AUFRUFE 
fehlerkode 


"break’ 
---> fehlerausgang 


=--> open 


fehler: -> 


---> bsout 
fehler: -> 


---; basin 
fehler: -" 


---> ckout 
---> falls bus, ds$ löschen 
ak: -> 


fehler: -> 


=---> chkin 
---> falls bus, ds$ löschen 
fehler: -> 


---} getin 
fehler: -# 


INEN 


Te 3Y8 
a4a417 3 77-5 adresse holen 
#h ,a42959-1 } rücksprungadresse auf stack 


; (ginge auch einfacher mit "jsr"!) 
#1,242959-1 


32037 ; cpu-status und 


; register a, “4, y setzen 


{a20) 3 75 aufruf des maschinenprogramms 


4295397 3429597 php ; cpu-status 
429460 sta a2034 ’ und register a, %, Y 
42963 stx 320353 ; abspeichern 
429766 sty a2uis 
42969 pla 
42978 sta a2837 
42973 rts 
42974 
De SAVE 
42974 
42974 242974 jsr a43119 3 70-: parameter übernehnen 
a42777 1dk #249 ; L,programmende 
ldy *#a46 3 Nysun 
Ida #a43 ; zeiger auf programmanfangsadresse 
jsr a65496 3 um save 
jsr a43258 3 => falls bus, ds$ löschen 
bes a42977 ı fehler: -> 
rts 
jammm NEREFY 
a42992 Ida #1 
‚by 44 
EHRE LOAD 
a42995 Ida #8 
sta #ald ; verify-flag 
jsr a43115 i 77-5 parameter übernehmen 
2 a43692 Ida *ald  load/verify-flag 
ldx #343 » l,programmanfang 
2 ldy #244 ’ Oyanıe 
42008 jsr 265493 3 --> load 
zoll php 
aaa isr a43256 io} falls bus, ds$ löschen 
plp 
bes a431i2 ı fehler: -> 
lda #218 ; load? 
beg 243644 ı jas > 
ldx #28 ı verify” 
isr a63463 ; => readst 
and #16 ;ı verify-errar-bit 
bne a43033 s gesetzt: -> 
j ı direktnodus? 
s nein: -> 
3} 777: "ok’ ausgeben 


a42043 


435044 
43647 
43049 
43051 
43053 

3056 
43056 
43558 
43068 
43062 
43064 
43067 
43078 
43973 
43976 
43676 
430797 
43092 
43095 
43085 

3085 
43085 
43088 
43089 
43092 
43095 
430977 
430978 
436098 
43698 
43098 
45101 
43193 
43104 
43167 
43110 
43112 
43115 
43115 
43117 
43120 
43122 
43124 
43127 
43130 


343044 


a42053 


a43076 


a43085 


343699 


ag43112 


a43115 


a43137 


a6s463 
#418111111 
a430Is 


{ #29 


a34433 


*a1l29 
243075 


ı #245 


*a46 

asd415 
a>4840 
333475 
24375 


333369 
a24840 
a35541 


343184 


342885 
a43256 
343112 


3634753 


" a43256 


a43943 
a42977 


ass4a6 
a4A53165 
343246 
a43165 
a43157 
#0 


{ #373 


265466 
a43165 
a43159 


*#a73 


ass5466 


343173 
340324 


> readst 

eoi \seschen 

kein weiteres bit gesetzt: > 
"load” 

—--" fehlerausgang 


direktmodus? 
Mi 


nein > 
variablenanfang := ladeendadresse 


" "ready." ausgeben 

» Linkadressen berechnen 
progrzgr rücksetren, cir 
> ready-schleife 


> pragzgr rücksetzen 
linkadressen berechnen 
> restore, clr stack, progr starten 
ÜFEN 
—- > parameter übernehmen 
=--: open 


---: falls bus, ds$ löschen 
fehler: -> 


---: parameter übernehmen 


* close 
falls bus, ds$ löschen 


=: fehlerausgang 


---> setnams filenamen Löschen 
fa: vorbelegung kassette 
sa: vorbeleqgung "lesen" 
=--} setlfs 
> chrgot, abbruch bei trennzeichen 
filenamen übernehmen 
>» chrgat, abbruch bei trennzeichen 
---= chkcom, getbyt 
sa: vorbelegung 
geräteadresse 
——; setlfs 
-—_-} chrgot, abbruch bei trennzeichen 
---: chkcom, getbyt 
sekundäradresse 


geräteadresse 
=} setlfs 


---> chkcom, chrgot, fehler bei ende 
---} getbyt: byte übernehmen 
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43165 
43168 
43170 
43171 
43172 
43173 
43173 
43176 
43179 
43181 
43184 
43184 
43186 
431899 
43192 
43195 
43197 
43198 
43200 
43202 
43205 
43208 
43211 
43213 
43215 
43217 
432197 
43221 


43222 


43225 
43228 
43231 
43232 
43233 
432353 
43237 
43240 
43243 
43246 
43249 
43251 
43253 
43256 


43256 3 


43256 
43256 
43257 
43258 
43269 
43262 
43264 
43267 
43268 
43269 


a43165 


a43172 


as38033 
al145 

a43172 
339949 


a43173 
a43176 


a43184 #0 
a653469 
a43176 
3405324 
ı #373 


a432 


15] 
1557 


a43173 
a4aa08 
*as4 
*a3 
a65469 


a43256 


*a174 
#4 
a43267 
as2567 
a43267 


chrgot 
trennzeichen: -> 


> chkcom 

> chrgot 
trennzeichen: 
; > "syntax error” 


2? 


3 777> setnam: filenamen löschen 
3 ==> chrgot, fehler bei ende 
3 -7-> getbyt: byte übernehmen 


log adresse 

vorbelegung geräteadresse 

vorbelegung sekundäradresse 

> setlfs 

---> chrgot, abbruch bei trennzeichen 
> chkcom, getbyt 

geräteadresse 

vorbelegung sekundäradresse 

log adresse 

geräteadresse « 3? 

jal -7 

sekundäradresse 
> setlfs 

>» chrgot, abbruch bei trennzeichen 

chkcom, getbyt 


PPPEEFTTEHRREE?T EARRBL?T BERPREFT ERRBBEVT, 


= 255 


POUR” Wen | 


> setlfs 
> chrgot, abbruch bei trennzeichen 
> chkcom, chrgot, fehler bei ende 


’ 
} 777> filenamen übernehmen 
; l,stringadresse 
a 
35 => setnam 
DISK STATUS LÖSCHEN 


fa: geräteadresse 
bus? 

nein: -> 

---> ds$ löschen 


u... 


43270 343279 
43272 343272 
43273 
43275 
43276 
43278 
43279 
43281 
43283 
43285 
43286 a43286 
43288 
43290 


a43299 


a43307 


43325 


43327 


a42331 


a4333z 


43348 a43348 
43350 a43350 
43352 
43354 
43397 
43337 


43369 


*a34 
3432997 


(a34),y 


tal4),y 


: #a53 


*a54 


x tası 


*#ag2 


*a15 
a43345 
a43248 


a43370 
a43667 
a43350 


#0 


(a2) ,y 


(a9E},y 


a43330 


3 
3 


vw. 


flag f garbage collect löschen 
stringlänge 

= -> 

auf stack legen 
stringbereich-anfang 


-2 (für r-zeiger) 


adresse des r-zeigers 


stringlänge 
negieren 


und addieren 


ergehnis © variablenende? 


jan =} 
string-transportzeiger 


r-zeiger für ungültigen string 
einsetzen 


stringlänge 


neuer stringbereichs-anfang 


garbage collect schon durchgeführt? 
ja: out of memory > 

---> garbage collect 

garbage collect flag setzen 


stringlänge 
immer => 


---} "out of memary” 
GARRAGE ERLE EEK TI 


string stack zeiger 
stack leer” 

jar > 

---} r-zeiger-adr nach a92,3973 
stringlänge = ® -> 

strings, deren deskriptoren 

im string stack stehen, mit 
r-zeigern für gültige strings 
versehen 


immer -> 


43370 
43372 
43374 
43376 
43378 
43388 
43382 
43384 
43386 
43388 
43390 
43391 

43394 
43396 
43397 
4340 
43403 
43404 
43496 
43408 
43408 
43410 
43412 
43414 
43416 
43418 
43428 
43423 
43425 
43426 

43429 
43431 

43434 
43435 
43438 
43449 
43442 
43443 
43446 
43447 
43448 
43449 
43452 
43454 
43455 
43457 
43459 
43462 
43464 
43465 
43467 
43469 
43471 

43474 
43476 


343370 


a43571 


a43396 


343408 


a43418 


a453448 


343459 


ldy 
sty 
ldx 
ldy 
stx 
stx 
stx 
sty 
sty 
sty 
txa 
jsr 
bne 
dey 
jsr 
jsr 
sec 
ror 
bne 


bit 
bpl 
ldx 
stx 
lda 
ldy 
jsr 
sta 
dey 
jsr 
sta 
jsr 
tax 
jsr 
sta 
sty 
txa 
jsr 
txa 
tay 
dey 
jsr 
sta 
dex 
bne 
ldy 
lda 
sta 
dey 
bne 
lda 
ldy 
jsr 
beq 
bne 


a453498 
343408 


ass125 
a43577 


*a88 
a4ss71 


a33125 
(a95),y 


a33125 
(a95),y 
a1200 


a43592 
*a53 
+a54 


a43577 


as33125 
(a95),y 


345448 
#2 
a95-i,y 
(a34),y 


a43459 
*a78 
*a79 
a43498 
a43396 
a43418 


u. 


a, m ie 


PPFEPRBEEFF, 


flag 
string-obergrenze 


zielbereichszeiger 
quellbereichszeiger 
transportzeiger 


---> zeiger nachstellen 


---> lda (a78),y: stringlänge 
---> vom q-zeiger subtrahieren 


flag setzen 
immer -7 


flag gesetzt? 
nein: -> 


flag löschen 

??? nicht sinnvoll! 
r-zeiger verschieben 
---> lda (a78),y 


---> l1da (a78),y 


---> lda (a34),y 

stringlänge 

---> vom z-zeiger subtrahieren 
ergebnis in transportzeiger 


stringlänge 
---> vom q-zeiger subtrahieren 


stringlänge ist offset 
string verschieben 
---> l\da (a78),y 


z-zeiger 
in deskriptor kopieren 


-zeiger 
---> zeiger nachstellen 


ungültiger string: -> 
immer -> 


43478 243478 1Idy #8 


43498 jisr a1206 ı => lda (ajd),y 

43483 tax ; stringlänge 

43484 jsr 243592 3 =--> vom z-zeiger subtrahieren 
43437 sta #353 ; ergebnis in transportzeiger 
43489 sty #a54 

43491 txa  stringlänge 

43492 jisr a43577 3 77-3 vom q-zeiger subtrahieren 
43495 jnp a43391 nn 

43498 

43498 a43498 cpy #a52 ; grzeiger 

43508 bec 243544 

43502 bne a43516 

43504 camp *asl, 

43306 beq 243544 . 
43598 bec a43544 ; kleiner als string-untergrenze: -> 
43519 a43510 bit *a88 ’ flag 

43512 bmi a43519 ; gesetzt: - 

43514 lda #2 

43516 jsr 243592 i ===> vom z-zeiger subtrahieren 
43519 343519 1lda #2 . 

43521 jsr a43577 3} => vom grzeiger subtrahieren 
435324 ldy #1 

43526 jsr a33129 ; ---> Ida (a78),y: r-zeiger 
43529 emp #255 ’ string ungültig? 

43531 bne 343534 s nein: -} 

43533 rts 

43534 

435334 343534  jsr a33129 } ==> l\da (a78),y: r-zeiger 
433537 sta ald,y ; = deskriptor-zeiger 

43540 dey 

43541 bpl 343534 

43543 rts 

43544 


43544 343544 1dx *a22 
43546 243546 cpx #a25 


string-stack-zeiger 
stack leer” 


F 
43548 beq 2435646 s ja: fertig -> 
43530 jsr 343607 3 0-> r-zeiger-adr nach 392,393 
43533 beq 343546 ’ stringlänge = &: -> 
43553 ldy #0 ; string ungültig machen: 
43557 sta (a92),y ; stringlänge in r-zeiger 
43559 iny 
43566 Ida #255 
43562 sta (a92),y ; 255 in r-zeiger 
43564 bne a43544 s immer > 
43366 
43566 343566 pla ; rücksprungadresse vom stack entfernen 
43567 pla 
43568 lda #353 ; transportzeiger 
43576 ldy #a54 
43572 sta #aSl ; ergibt neue string-untergrenze 
3374 sty #352 
43576 rts 
43577 
43577 a43577 eor #255 ia vom gqrzeiger subtrahieren 
43579 sec 
43588 adc *378 
43382 ldy *%a79 
43584 bes 243587 
43596 dey 
43597 343587 sta *a78 
43397 sty *a797 


43571 rts 


43592 a43592 eor #255 ; a vom z-zeiger subtrahieren 
43574 sec 

435953 adc *a95 

43397 ldy #376 

4359797 bes a4I602 

4321 dey 

43a a4yIsH2 sta #395 

43664 sty #296 

43606 rts 

43697 

43607 343697 dex 

43698 lda #a9,x ; h,stringadresse aus stack 
43618 sta #393 

43612 dex 

43613 lda *aü,x 5 Isa 

43615 sta #392 

43617 dex 

43618 lda #ad,x ; stringlänge 

43620 pha 

43621 clc 

43622 adc *a92 ; + stringadresse 

43624 sta #392 ;} = r-zeiger-adresse 
43626 bec a436230 

43628 inc *a975 

43630 a43630 pla 

43631 rts 

43632 

Be C9S 

43632 

43632 343632 1da #1,a453756 

43634 ldy #h,a43756 

43636 jsr a41082 3 => fac ı= fac + pi/2 
43639 

Do SIN 

436539 

43639 343639 jsr a41617 3 > arg ı= fac 

43642 Ida #1,343761 

43644 ldy #h,a43761 

43645 ldx *a119 ;ı vorzeichen von arg 
436548 jsr a41356 3 => fac ı= arg / konst 
43651 jsr a41617 3 ---F arg ı= fac 

43654 jisr 341816 er ine 

43657 lda #9 

43659 sta *alll ı vorzeichen von fac #* arg 
43661 jsr 240585 3 -7-> fac :ı= arg - fac 
43664 lda #1,a437646& 

43u66 ldy #h,a43766 

43668 jsr 341068 s > fac := konst - fac 
43671 lda *a1#2 s vorzeichen von fac 
43673 pha 

43674 bpl a43689 s positiv: -> 

43676 jsr a41058 377-3 fac ı= fac + 8,5 
43679 lda *#a182 ; vorzeichen von fac 
43681 bmi 243692 ı negativ: -> 

43683 lda #a18 ; vorzeichen-flag 

43685 eor #255 si invertieren 

43687 sta #a18 


43687 a43689 jsr a42533 3 =7-> fac := - fac 


Seite 98 45672 
43592 a43692 Ida #1,243766 
43674 idy #h,243764 
43595 jsr a41062 3 => fac := fac + konst 
43699 pla 
43700 bpl 243705 
43702 jisr a42535 s — 7 fac ı= - face 
43705 a43705 Ida #1,443771 
43707 ldy #h,a43771 
437697 jimp 242675 5 777? polynom auswerten 
43712 
BE BET a un nn TAN 
43712 
43712 a43712 jsr a41551 3 =-> fac nach reg? kopieren 
43715 lda #6 i 
43717 sta #al8 ; vorzeichen-flag auf ’+’ setzen 
43719 isr 343639 3 7-3 sin 
43722 ldx #1,378 
4372 ldy #h,a789 
4372 jsr a428945 3 ==> fac runden und nach regi kopieren 
4372 lda #1,387 
43731 ldy #h,a97 
43733 jsr a41505 5 777: reg? nach fac kopieren 
43736 Ida #6 
43729 sta #al62 ı vorzeichen von fac 
43740 lda #a18 ; vorzeichen-flag 
43742 isr a43732 3 => fac :ı= cos(fac) 
43745 lda #1,378 
43747 ldy #h,a78 
43749 jmp a41364 ; ---> fac ı:= regl / fac 
437532 
43752 a43752 pha 
43753 imp 343689 } ==> cos 
43736 
43756 a43756 „by 129 73 15 218 162 s 1.5370079533 = pi/2 
43761 243761 „by 131 73 15 218 162 35 6.28318531 = 2#pi 
43766 a43766 “by 1277098908 ; 8.25 
43771 243771 .by5 ;  polynomgrad 
43772 ‚by 132 230 26 45 27 ;-14.3813907 
43777 ‚by 134 40 7 251 248 ; 42.08077971 
43782 ‚by 135 153 184 137 1 ;-76.7041703 
437897 ‚by 135 35 53 223 225 ; 81.6052237 
43792 ‚by 134 165 93 231 40 ;-41.3417021 
43797 .by 131 73 15 218 162 3 6.28318531 = 2#pi 
43862 
= ATN 
43992 
43802 a43802 Ida *al62 ;i vorzeichen von fac 
43804 pha 
43805 bpl a438918 ; positiv: -> 
43847 jsr a42335 I => fac ı= - fac 
43316 a43819 Ida #397 ; exponent von fac 
43812 pha 
43913 cmp #129 ı fac € 1? 
43815 bee 343824 1 jas m> 
43917 lda #1,248944 
43917 ldy #h,a45944 
43821 jsr 341974 3 oo: fac ı= 1 / fac 


43350 
43851 
43955 
43961 
43865 
ar971 
43876 
43981 
43886 
43891 
42387& 
43901 
43905 

3911 
43F11 
a3F1l 
43911 
439717 
43719 
43917 
439719 
43922 
439724 
43926 
43928 
43730 
43932 
43934 
43736 
439738 
439741 
43943 
43943 
439743 
43943 
43946 
43748 
43950 
43952 
43954 
43958 
439538 
43961 
43963 


3 343843 


343949 


343858 


a43911 


‚by 137 138 141 167 149 


ı #1, 343950 


#h, 243950 
a42675 


#129 
a43343 

#1 ,343756 
#h ,a43756 
3419583 


343847 


ze 


a425335 


119 179 131 189 211 
21 30 244 166 245 
123 131 252 178 16 
124 12 51 105 202 
124 222 85 203 193 
125 28 156 112 76 
125 183 254 81 122 
125 97 48 156 126 
126 145 648 153 58 
126 76 284 145 197 
127 179 179 170 17 
127 »008 


u en 


---> polynom auswerten 


„ar fac “ 17 
jar > 


---> fac ı= konst - fac 
vorzeichen des argquments 
positiv: => 

7 Tae 3E - fe 


pol ynamgrad 
3 76.84793912 e-64 
4,35094216 e-63 
-5,8161117018 
9.,634209438 
-5.9542791328 
4,0724571965 
-9,0898023954 
8, 118932413 
-5, 142837868 
0,1979 F12 
333316 


RENUMBER 


214 215 213 ; renumber tokens 


; vorbesetzung: neunummer 18, schrittweite 1@, altnummer 8 


343919 


jsr 
lcda 
ld» 
stx 
sta 
stx 
sta 
sta 
sta 
jsr 
beq 


; übernahme 


343958 


jsr 
Ida 
beqg 
Ida 
ldx 
sta 
stx 
jsr 
beq 
jsr 


246814 
#5 
#10 
*as 
#a4 
*a5 
*a6 
ao 
art 
al1l45 
a44045 


PPBERRBEFT, 


---> "direct mode only” 

vorbesetzung anfangszeile 

und schrittreite 

neue anfangszeilennummer (neunummer) 


schrittweite 
alte anfangszeilennummer (altnummer) 


---> chrgot 
trennzeichen: -> 


der parameter: neunummer, schrittweite, altnummer 


a36414 
#aB 
a43958 
+a2H 
*a2 
*as 
*a4 
al145 
a44445 
a38033 


Pr a 


---} zeilennummer holen 
zeilennummer angegeben? 
nein: -> 

zeilennummer 


= neunummer 
==} chrgot 


trennzeichen: -> 
---> chkcom 


44900 
44002 


4ana6 
44008 
amt 
44013 
44915 
44517 
44819 
44021 
44023 
44925 
44927 
44930 
44832 
448 
44035 
44037 
44539 
44041 
44043 
44045 
44945 
44045 
44045 
44048 
44051 
44954 
44056 
44956 
44056 
44956 
44959 
44962 
44065 
44067 
44970 
44978 
44073 
44975 
44076 


a43984 


343999 


; zielzeilennummern im programm 


344945 
344048 


as3s414 
*a8 
3439397 
#arn 


» #a2l 


#35 


ı #ab 


a43989 


343989 
as7196 


all4S 
344045 


jsr 
jsr 
jsr 
bne 


344045 
*395 
*a898 
a4ı98&s 


335967 
a44422 
a44422 
a44117 
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zeilennummner holen 
zeilennummer angegeben? 
nein: => 
zeilennummer 


= schrittweite 


schrittweite nicht nulls == 
—; "illegal quantity” 


---: chrgot 
trennzeichent "> 
chkeom 

» zeilennummer holen 
zeilennummer 


= altnummer 


—- > zeilenadresse ermitteln 


adresse der 1. renumber-zeile 


neunummer 


---: zeilenadresse ermitteln 
neuadresse 


“ altadresse? 

d.h.: gibt es zeilen mit nummern 
in dem bereich, der durch 
renumber belegt wird? 


ja: fehler -> 

z.b. nach gato) korrigieren 
==> programmzeiger rücksetzen 
i,linkadresse holen 


u Dunn 
programm nicht zu ende: > 


;s alte zeilennummern in neue umwandeln 


344059 


a44070 


jsr 
jsr 
jsr 
bne 
mp 


jsr 
sta 
iny 
jsr 


344377 
a44422 
a44422 
a44976 
a44723 


a44422 
*a2n 


al199 


---> neunummer nach fac, stxtpt 
l,linkadresse holen 
ann 

programm nicht zu ende: -> 

---> abschlu, ready 


> ),zeilennummer 


en 


> \da taö59),yr h,zeilennummer 


44979 sec ; zeilennummer 

44080 sbce #a91 s < altnummer? 

44082 bcec 244199 

44084 bne a44%92 

44096 lda *a20 

44688 sbc *a9% 

4409765 bcec 244109 ; ja: keine änderung -> 

44092 244692 Ida *a98 5 neunummer 

44094 sta (a59),y ; in zeilenkopf bringen 

44076 dey 

44597 lda *a99 

44099 sta (a59),y 

44181 jsr 244422 ; => nächstes zeichen 

44104 jsr a444053 3 77-> nächste neunummer, nächste zeile 

44197 beq a44959 ; immer -> 

44107 

44107 2441089 jsr 344422 } ——-> nächstes zeichen 

44112 jsr 344416 i ==> nächste zeile 

44115 beq 344957 s immer —> 

44117 

44117 a44117 jsr 244422 3 => nächstes zeichen 

44120 isr a44422 3 ==> nächstes zeichen 
’ 


44123 a44123 jsr 244422 ---> nächstes zeichen 


44126 344126 cmp #°" 


44128 bne 344141 

44130 a44130 jsr 344422 3 ---> nächstes zeichen 
44133 beq 244048 ; zeilenende: -> 

44135 camp #°" ; text überlesen 

44137 bne a44130 

441237 beg a44123 

44141 


44141 5 zielzeilennummern im programm suchen und korrigieren 
44141 


44141 244141 tax zeichen aus zeile 


’ 
44142 beq a44048B ; zeilenende: -> 
44144 bpl 344123 ; kein token: -> 
44145 ldx #8 
44148 344148 cmp a43911-1,x ; token in tabelle? 
44151 beq a44169 1 jar > 
44153 dex 
44154 bne 244148 
44155 cmp #263 ; ”go’-token? 
44159 bne a44123 3 nein: -> 
44156 jsr al139 3 777> chrget 
44163 beq 344648 ;i trennzeichen: -* 
44165 cmp #164 ; "to’-token? 
44167 bne a44123 ;s nein: -= 
44159 
44169 ; zielzeilennummern korrigieren 
44169 
44169 244169 Ida #359 ; programmzeiger 
44171 sta asßdl ; merken 
44174 lda *a40 
44176 sta ad6®2 
44179 jsr all39 5 7-> chrget 
44192 bos 244126 ; keine ziffer: weitersuchen -} 
44184 jsr 236414 ; ---> zeilennummer holen 


44187 jsr 244270 3 ===> neue zielzeilennummer erzeugen 


44198 lda asöl ;} programmzeiger 
44193 sta #257 ; wiederherstellen 
44195 lda as62 
44198 sta #adß 
44200 ldy #8 
44262 ld #0 
44204 244204 Ida atöstl,x ; zahlenstring (ohne vorzeichen) 
44257 beq a44237 ı ende erreicht: = 
44209 pha 
44210 jisr all39 3 ==: chrget 
44213 bec 344227 ; ziffer: keine verschiebung nötig -> 
44215 jsr a44354 3 =: verschiebung vorbereiten 
44218 inc #a188 ; schreibzeiger erhöhen 
44220 jsr 344475 35 7773 progr 1 byte nach hinten schieben 
44223 inc #345 ı variablenanfang nachführen 
44223 bne 344229 
44227 inc *a46 
a44229 pla s ziffer aus neuer nummer 
ldy #6 
sta {a59),y ; in programm schreiben 
inx ; zeiger in nummernstring erhöhen 
bne a44204 s immer > 
a44237  jsr all 3 ==> chrget 
bes a44253 ; keine ziffer: -> 
! a44242 jsr 2442354 3 =7-> verschiebung vorbereiten 
der #108 ; schreibzeiger erniedrigen 
44247 isr 344459 3 =: progr 1 byte vorziehen 
Aay2Se lda #345 ; variablenanfang nachführen 
44252 bne a44256 
44254 dec #a4s 
44256 344256 dec #a45 
442539 jsr all45 3 => chrgot 
44261 bec a44242 ı ziffer: nochmal vorziehen -> 
44263 344263 cap #°, 
44265 beq a44167 : weitere zeilennummer folgt: -> 
44267 jmp 244126 3 70: weiter im programmtext 
44270 
44278 5 neue zielreilennummer erzeugen 
44270 
44276 244270 jsr a44377 3} => neunummer nach fac, ststpt 
44273 a44273 jsr 244422 3 > L,linkadresse holen 
44276 brne a44291 ; kein programmende: -> 
44278 jsr 344422 ı zum: h,linkadresse holen 
44281 bne 344294 ; kein programmende: -> 
44285 Ida #233 5 programmende: zeile nicht vorhanden 
44285 sta #398 ;i zeilennummer 65335 
442337 sta #379 
4429397 bmi 344333 ;> immer "> 
44291 
44271 a44291 jsr 344422 } ===> h,linkadresse holen 
44294 344294 jsr a44422 3 ---> 1, zeilennummer holen 
44297 sta *a88 
44299 cmp *a?a ; = ],alte zielzeilennummer? 
44351 bne a44342 3 nein: nächste zeile -> 
44393 isr 344422 3} ==: h,zeilennummer 
44306 sta #389 
44309 cmp #azl ;ı = h,alte zielreilennummer? 


44310 be a44347 ; nein: nächste zeile -> 


Seite 


163 44>12=2 


a44325 


344342 
344347 
; 


. 
’ 
” 
Ei 


344354 


.by 


lda 
sta 
lda 
sta 
lda 
sta 
lda 
sta 
ldy 
sty 
sty 
rts 


*a9l 
a44325 
a44333 
*a2d 
*#a90 
a44333 
*a20 
*a997 
*a2l 
+a978 
#144 


«41678 
342995 


a44422 
*a89 

344398 
a44273 


217 254 


*a57 
*a54 
#asa 
+23 
*a45 
*+a36 
#a4s 
#337 
#0 
*#all 
*a108 


verschieben vorbereiten 


zeile im renumber-bereich? 


3 jar neue nummer schon in fac -> 
; alte zielzeilennummer 
; nach fac 


; exponent 

;s verhindert negierung 

3 => fac aufbereiten 
37773 gk=string-wandlung 


---> h,zeilennummer 


Pr 


5 ---> nächste neunummer, nächste zeile 
s immer —} 


programmzeiger 
= anfang des verschiebebereichs 


; variablenanfang 
: = ende des verschiebebereichs 


; lesezeiger 
schreibzeiger 


we 


; neue anfangszeilennummer nach fac, programmzeiger rücksetzen 


a44377 


lda 
sta 
Ida 
sta 


ImP 


*a5 
*3997 
*+a4 
*a78 
a35369 


; neunummer 
; nach fac 


5 777> programmzeiger rücksetzen 


; neue zeilennummer im renumber-bereich um schrittweite erhöhen 


a44588 


Ida 
sec 
sbc 
bec 
bne 
Ida 
sbc 
bec 


+as? 


#391 
a4441& 
344403 
*aB8 
*+a90 
a4441& 


i zeile im renumber-bereich? 


; mein: -> 


a44an3 


244416 


lda #399 ; zeilennummer in fac 

eic 

adc #25 ;ı + schrittweite 

sta #399 ı = nächste zeilennummer in fac 
lda #378 

ade *ab 

sta #398 

jisr a44422 3 => nächstes zeichen 

bne 344416 ı noch nicht zeilenende: -" 

rts 


; nächstes zeichen aus programm lesen 


a44422 


a44430 


ldy #08 

inc #a59 ; programmzeiger erhöhen 
brne 344436 

inc *#a59 

imp al199 ı 77: 1da (a59),y 


; verschiebereiger mit randzeiger vergleichen 


a44a33 


3 244443 


Ida 
emp 
bne 
Ida 
emp 
rts 


#aı4 
#236 
3444473 
*a15 
‚a3? 


: programmblaock nach vorn ziehen 


44444 244444 inc #234 ; anfangszeiger erhöhen 

44445 bne =44456 

44448 inc #a35 

44450 244459  ldy #tall ; lesereiger 

44452 iny 

44453 isr alzö6 3 =: Ida (aS4),y 

44455 Idy #a168 ; schreibzeiger 

44458 iny 

44459 sta (ald).y 

44A51 jsr a44423 } um: ende des blocks erreicht? 
44464 bne 244444 ;i nein: weiter verschieben -> 
44h rts 

44467 

44467 5 programmblock nach hinten schieben 

44467 

44467 244467 Ida #aSs ; endezeiger erniedrigen 
444 bre a44473 

44471 dec #337 

44473 244473 dec 

44475 344475  1ldv ; lesezeiger 

44477 isr 3 oo: Ida (ald),y 

44480 ldy ‚ schreibzeiger 

44482 sta 

24494 jsr } i => anfang des blocks erreicht? 
44497 pre 344467 ı nein: weiter verschieben =" 
444839 rts 


De FOR 

44490 

44459 244490 Ida HE ı integervarishle sperren 
44492 sta *ald 

44494 isr a3647& i 777: letı variable belegen 
44497 Ida #127 ı For’ -token 

44499 sta *a2 ; für ekack-suche speichern 
4a jsr al4F27 ' suche im basic-stack 
445 beg #44514 

44506 Idy #18 

44508 isr 2359077 B » platz im hasic-stack rufen 
Aal isr 242948 i (asl,add) 3 

44514 344514 jsr 842957 H > (ald4,al25) la) 
44517 jer al628a I ek offset bis tr »ichen mach 
44528 tva  offset 

445m ldyv #17 

AASEE elc 

44524 adc #359 ’ + programmzeiger 

AASEE sta (al2d),v ı = anfang der for-mext-schleife 
44328 lda *a4s9 ı auf basic-stack legen 

44: ade #9 

44% dey 

44 sta (al24),y 

44535 Ida #a5a ; zeilennummer 

44537 dey 

44338 sta fall4),y ı auf basic-steck legen 

44549 lda #257 

44542 dey 

44543 sta (al24},y 

44245 Ida #164 ’ 

44547 : N syntax check 


44530 i rifen ob variable numerisch 
44553 3 > torausdruck auswerten 
445358 i vorzeichen von fac 

44558 ; in hüchstes bit 

44360 ;i der mantisze von fac 

44562 ; übertragen 

44564 

44566 ldy #13 

44568 244568 Ida #397, ; to-wert auf basic-stack legen 
44570 sta (alid),y 

445372 dex 

44573 dey 

44574 bpl a44568 

44576 lda #1,245944 ; ersatzwert | für sten 

44578 Idy #h,a40944 

44586 jisr a41505 H » nach fac kopieren 

44587 jsr all4s h > chrogat 

44586 emp #169 ı "step’-token? 

44588 bre a44575 ı neims 

44570 jsr all? ! chrget 

4a5PE jsr 237652 step-ausdruck auswerten 
445396 344596 jer a4dlads ‚ vorzeichen von fac 
445997 pha 

aaa jsr aslöaz 3 ==> fac runden 

44653 pla 

44604 ldy #8 


44606 Ida #5 


44608 
44816 
44612 
44613 
44614 
44616 
44618 
44620 
44622 
446253 
44625 
44627 
44628 
44630 
44631 
44631 
446531 


44631 a 


44634 
44634 
44634 
44654 
44637 
44649 
44642 
44645 
44647 
44649 
44651 
44653 
44656 
44458 
44669 
44663 
44664 
44665 
44667 
44670 
44672 
44675 
44677 
44479 
44681 
44682 
44684 
44695 
44687 
44689 
44690 
44692 
44693 
44694 
44696 
44698 
44699 
44701 
44793 
44795 
44708 
44718 
44711 


a44508 


a44634 


344672 


a44679 


a44705 


sta 
Ida 
dey 
dex 
bpi 
lda 
sta 
lda 
dey 
sta 
Ida 


(a124) ,y 
#a96,% 


344508 
*a74 
(al24),y 
#373 


(alz4),y 
#127 


ı (al2d),y 


346814 
a1145 
a44631 
a44746 
*a95 


244672 
alzI3 
344679 
al233 
*295 


ı #296 


#ass 
*a95 


*a37 
*296 


a44723 


#a45 
#345 


+a46 
*a46 

4 
al233 
(a6) ,y 


a44705 


Pr 


0“. 


. 


PPPEPFREEPF, 


vorzeichen und fac auf basic-stack 
legen 


for-next-variablenzeiger 
auf basic-stack legen 


’for’-token 


auf basic-stack legen 


---> "syntax error’ 
BELETE 


---} "direct mode only” 

---> chrgot 

kein zeilenbereich: fehler -: 
---}> zeilenbereich übernehmen 
anfangsadresse des löschbereichs 


umspeichern 


---> endzeilenadresse holen 


% 


zeile nicht vorhanden: -}> 


---> Ida (a95),y: h,linkadresse 


> Ida daD, yr Iyass 
programmende: -" 
---> Ida (a95),y 
ende des läschbereichs 


anfangsadresse 


kleiner als endadresse? 


nein: fertig -> 


variablenanfangszeiger 
um länge des löschbereichs 
erniedrigen 


---> 1da (a95),y 
oberen programmabschnitt nach 
unten kopieren 


‘ a44723 


a44738 


a44746 


a44754 


344777 


a44787 


344788 


a44791 


ads 


a44705 
334940 
sad 


ı *a39 


#2 


*a45 


2 244738 


344754 
a44734 
#171 

344798 
ass414 
a35389 


- all45 


344777 


> #174 


344788 
all? 

a36414 
344788 


a a8 


344787 


, #255 


ta?a 
*a2l 


333049 


a37676 
a37658 
*a1ba 


#alöl 


#2 
al244 


aulıy 
344813 
al244 
a735 


344842 


ze en 


== 


ZELL 


---> linkadressen berechnen 
arogqrammenrde 


= varjablenanfang 
---; restore, clr 
---} ready 


trennzeichen: -> 

ziffer: -> 

’-' taken? 

nein: fehler -> 

---> zeilennummer übernehmen 
zeilenadresse holen 
chrgat 

trennzeichens -} 

’-' token? 

nein: fehler -> 

---> chrget 

> zeilennummer Übernehmen 
kein trennzeichen: fehler -» 
zeilennummer angegeben? 

jar =} 

sonst 

zeilennummer 65535 übergeben 


---> "syntax error" 
USING 


vorbelequng für 

teldende 

-—-> chroet 

formatstring übernehmen 
> prüfen ob string 


deskriptor-zeiger des formatstrings 


auf stack legen 


ENBEREICHSANALY 


5 


---> Ida (al6ö),yı adr des formatstr 


in formatstringzeiger 


---: Ida lalab),y 
länge des formatstrings 


stringlänge = ö: fehler -" 


44931 a44831 dey 


Aa83z jsr a33137 3 => Ida ladsl),yr zchn aus formalstr 
44935 emp #’# 

449337 heq a44845 ı °#° gefunden: 

44839 tya 

442346 bre a44931 ;s sonst! 

44842 244842 imp 233049 3 => "syntax error” 

44843 


44945 244845 
44847 244847 
44956 


s mu auf formatstring folgen 
I mem syntax check 
= 5 (vom syntax check) 


44852 sty a717 ;ı offset in zahlenstring 

44855 isr 2375876 3 7: ausgabeausdruck auswerten 
44858 bit *a13 ı string? 

44968 bpl 344919 ;s meint "> 

44862 jsr 245424 3 70: frestr, bereich initialisieren 
44855 jisr a45731 3 0-: formatstring auswerten 

44368 ldx a725 

44971 beg 244994 ; weder ’=" noch °" im formatstrings > 
44873 ld #6 

44375 sec 

44976 Ida a731 ; format-zähler 

44979 sbe #a119 ; - länge des ausgabestrings 

44881 bcc 344994 ; ausgabestring länger: -" 

44933 Ida #i= 

44985 cpx ay25 ; zentrieren? 

44988 bne 244895 ı nein: -> 

44398 lsr a ; (a) halbieren 

44971 ade #8 : und aufrunden 

44973 344893 tax ; zahl der vorlauf-blanks 

44994 244894 1Idy #0 ; offset in ausgabestring 

44296 a44996 txa ; noch blanks zu drucken? 

44897 beq 344904 ; neins -> 

44899 dex ; blank-zähler erniedrigen 

44906 a44906 Ida #° ; blank 

44902 bne a44912 sı ausgeben —=> 

44964 

44904 344904  cpy *all9 ; ausgabestring zu ende? 

44906 bes 244950 a jar => 

44708 jsr al2oo » =: Ida (a54),y: zchn aus ausgabestring 
449711 iny ı offset in ausgabestring erhöhen 
44912 ad4912 ;jsr 245744 3 => ausgeben, formatzähler erniedrigen 
44915 bre 244895 ı formatzähler noch nicht nulls -> 
44917 beq a44955 ı sonst: fertig -> 

44919 

44919 244917 jsr 342095 3 ==> gk-string-wandlung 

44P22 ldy #255 

44724 44924  iny ; länge des zahlenstrings 

449253 lda azöa,y ; feststellen 

44928 bne 344924 

44930 tya » länge 

44931 jsr a39772 3 ---> platz für string reservieren 
44924 ldy #6 

44736 344956 1Ida a25s,y ı zahlenstring in stringbereich 
44939 beg 244946 

44941 sta {a99) ,y i kopieren 

49a iny 


44944 bne 244936 
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44946 
44947 
44932 
44955 
44958 
4496% 
44962 
44963 
44965 
44968 
44969 
44976 
44971 
44974 
44977 
44979 
44981 
449834 
44784 
44987 
44997 
44987 
44937 
44998 
44993 
44995 
44978 
45a01 
45001 
450053 
43005 
45067 
45016 
45oll 
45a 
45015 
450617 
45019 
45021 
430253 
45025 


45044 
45947 
45949 
45051 
43954 
45955 
45958 
45060 
43962 


244946 


a449753 


a449794 
ızah 


344987 


a44995 


a45a91 
a43993 


a45044 


345054 


a45973 


*a118 
a45751 


a4unld 
all45 
#5 
344984 
a36726 


nstring to 


3732 
245005 


#alio 
*#a119 
245058 
arg6,y 


# 
345003 
#’- 
3449975 
#, 
aysanl 
He 
245644 
aaIs,N 
a719 


*al3o 
„45003 
a7z4 
a45005 


arss,y 
ei 
345054 
a722 


a723 
#a130 
a45064 
*al30 


EPPBE U BEP ee zer 


---> string-deskr in string-stack 
---> frestr, bereich initialisieren 
---> zahlenstring formatiert ausgeben 
---> chrgot 

weitere ausgabe gewünscht? 

jar =? 

flag für ausgabe-abbruch setzen 

---> restl zchn aus formatstr ausgeben 
h, zeiger auf deskr des formatstrings 


Inne 
---> frestr 
---> chrgot 


wenn ";" folgt, kein zeilenvorschub -> 
---> cr ausgeben 


---> chrget 


matieren 
a oder pudef-ersatz 

als füllzeichen speichern 
verhindert vorzeichen-ausgabe 
vorzeichen-flag 


=== 


offset 1. nachkommastelle (vorb 259 
ende des zahlenstrings? 

jas =? 

nächstes zeichen aus zahlenstring 
offset erhöhen 

blank? 

ja: überlesen -=> 

minuszeichen? 

ja: in vorzeichenflag speichern -> 
dezimalpunkt? 

ja: offset 1. nachkommastelle merken -> 
exponent? 

ja =&# 

ziffer wieder abspeichern 

ende des zahlenstrings 
schreib-offset erhöhen 

schon dezimalpunkt gefunden? 

ja -> 

vorkomma-stellenzähler erhöhen 

---> nächstes zeichen 


nächstes zeichen 

minus? 

nein: positiver exponent -> 
exponent-negativ-flag 

affset in zahlenstring erhöhen 
offset der 1. exponent-ziffer 
dezimalpunkt gefunden? 

Jar = 

1. nachkommastelle hinter mantisse 
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45064 
45967 
45970 
45072 
453974 
43077 
450979 
453982 
45994 
430897 
45070 
45993 
43974 
45697 
45109 
45182 
45105 
453187 
45118 
45112 
45115 
45117 


451365 
45139 
45142 
45142 
45145 
45147 
45149 
45150 
45153 
45155 
45158 
45160 
45163 
45166 
45166 
45167 
a5171 
45173 
45176 
45179 
45181 
45184 
45184 
45187 
45188 
45191 
45194 
45196 
45199 
45202 
45204 
45207 


2453964 


a451a2 


a45115 


45127 


a43130 


a45159 


a45142 


a45156 
a45167 


aa5178 


„45184 
345187 


bini 


a2gstrz,x 


a723 
a45316 
343139 
a728 
345139 
a732 
345130 
a726 
a45223 
a72& 
a45127 
a727 
aug5223 
azal 
345247 
343459 
345247 
345549 


ara 
245169 
#al19 


a738 
*a130 
a7zR 
adalsb 
345304 
3453179 


a43273 
+a130 

345179 
a4s3Tzo 
245184 
345459 
a45197 


a724 


a725 
a724 
a4s22E 
a721 
a728 
a4g231 
a732 
a43231 


un us 


PPRERHBET EEHHELF PERBRBEFT) 


---: formatstring auswerten 
vorkommastellen im formatstring 
nur ”$° ohne vorkommastellen? 
jst sternchen ausgeben -> 
exponent im formatstring? 


nein: =} 
exponent im zahlenstring”? 
ja: > 


ende des zahlenstrings 

---} ’561° als exponenten speichern 
macht "50" aus "@al’ 

offset in zahlenstring erhöhen 

und als exponent-anfang merken 
===> exp-darstellung normalisieren 
zahl = 9 -> 

vorzeichen im formatstring? 

38 

minuszeichen vor dem zahlenstring”? 
nein: > 

vorkommastellen in formatstring? 
nein: sternchen ausgeben -> 
vorkommastellen dekrementieren 
nieht null: > 

nachkommastellen im formatstring? 
nein: sternchen ausgeben -> 


> zahl formatieren 

> runden nach formatanweisung 
zahl formatieren 

> zahl mit zusätzen ausgeben 


exponent im zahlenstring? 


nein: -> 


flag "exponent entfernen’ setzen 
offset der 1. nachkommastelle 
vorzeichen des expaonenten 

u 2 

---} exp auf 6 erhöhen 


> 


> exp auf & erniedrigen 
1. nachkommastelle 

keine vorkommastellen: -" 
--- 1. vorkommastelle = 
jas —> 

---> zahl nach formatanw runden 


a7 


zahl der vorkommastellen erniedrigen 


vorkommastellen im formatstring 

- vorkommastellen in der zahl 
ergebnis negativ: sternchen ausg -> 
differenz merken 

vorzeichen im fornatstring? 

jas > 

vorzeichen im zahlenstring”? 

nein: -}> 


453209 tay ; vorkommastellen-differenz 

45210 beg a45223 ı = 6: sternchen ausgeben -> 
45212 dey ‚= 1? 

45213 bne a45234 ;s nein: -> 

45215 Ida a727 ; nachkommastellen im formatstring 
45218 ora a724 ; oder vorkommastellen in der zahl 
45221 bne 245139 ; vorhanden: zur ausgabe -> 


45223 243227 1da #’%* 


453225 39453225 jsr a45744 ---> ausgeben, formatzähler erniedrigen 


a“ 


45228 bne 445225 zähler noch nicht nulls => 

45239 rts 

45231 

45231 a45231l tay ; vorkommastellen-differenz 

45232 beq a451597 ;ı = 6: zur ausgabe -> 

45234 3453234 Ida 3724 ; vorkommastellen in der zahl 

45237 bne a45139 iı vorhanden: zur ausgabe -" 

43237 dec a721 ; differenz dekrementieren 

45242 inc #a118 B 

45244 jmp 345159 => zur ausgabe 

45247 

45247 3exp-darstellung erzeugen 

45247 

45247 345247 sec 

45249 lda a726 ; vorkommastellen im formatstring 
453251 sbc a724 3 - vorkommastellen im zahlenstring 
45254 beq a453173 ; = 6: fertig -> 

45256 ldy #a130 ı offset erste nachkommastelle 
45258 bec 245282 ; mehr vorkommastellen im zahlenstr: -> 
45268 sta *a119 ; differenz in zähler 

45262 a4s262 cpy a7l8 ; 1, nachkammastelle 

45265 beq 245269 ; = letzte stelle des zahlenstringst -> 
453257 bes a45270 ; hinter der letzten stelle: -> 


45269 345269 iny 
45270 a45270 inc a724 ; zahl der vorkommastellen erhöhen 
45273 a45273 jsr a4II26 3 7775 exponenten erniedrigen 
45276 dec *a1l19 :; differenzzähler erniedrigen 

3 


45278 bne a45262 s noch nicht null: weitermachen -> 
45280 beg 345311 ; sonst: fertig -> 

45282 

45282 345282 eor #255 i differenz negieren 

45284 ade #1 

45286 sta #2117 ;s und in zähler bringen 

45288 a45288 cpy a717 : 1, nachkommastelle 

45291 beq 245300 ı = 1, stelle des zahlenstrings: -" 
452973 dey 

45274 dec a724 ; zahl der vorkommastellen erniedrigen 
452977 jmp 245302 a 

45300 

453300 a45300 inc *a118 3 

45302 345202 Ida #128 ; vorgabe exp-vorzeichen 

45304 245304  jsr 245328 3 77-> exponenten erhöhen 

45307 dec *#a11? : differenzzähler erniedrigen 

45309 bne 345238 s noch nicht nullı —> 

45311 a45311 sty #al3o i offset erste machkonmastelle 
453313 a49313 rts 

453314 

45314 345214 be a45373 ; kein überlauf in exp-ziffer: -> 
452315 eor #7 ı ’P in ’@, ’5° in °9° umwandeln 
45318 sta a256,% ; ergehnis in zahlenstring 

45321 dex ; offset in zahlenstring erniedrigen 
43322 cpx a723 ; anfang des exponenten erreicht”? 


43325 rts 


45326 a45325 Ida #0 ; vorgabe exp-vorzeichen 
43328 343328 Id“ a723 iı offset expanent-zehnerstelle 
4SErl ins ; auf einerstelle erhöhen 
45332 bit a730 ı soll exponent entfernt werden? 
45333 bmi a453S: sam = 
453337 eor a722 i exp-vorzeichen in zahlenstring 
45540 beq a4593533 ; wie vorgaber > 
45242 345342 jsr 345395 4 ==> exponent-ziffer erhöhen 
45345 isr a45314 } => Übertrag wenn nötig 
45248 bes 2459342 ; wenn dies die einerstelle war: -" 
45350 jnp 346932 3 =: "overflow" 
453353 
45333 349353 1lda a2d6,x : exponent-ziffer 
45336 dec 2256, ; erniedrigen 
45339 cap #0 ı war sie 87 
45361 jsr a45314 3 => übertrag wenn nötig 
45364 bes a4Sa5E ; wenn dies die einerstelle warı -> 
Aaash ;ı soll expanent entfernt werden? 
43367 ı nein: > 
45371 sty #a128 ı offset erste nachkommastelle 
43373 345373 pla ı rücksprung auf nächsthöherer ebene 
45374 pla 
43373 rts 
453376 
43376 2453376 1lda a722 ; vorzeichen des exponenten 
4533797 eor #128 ı wechseln 
453981 34533231 sta a722 : und wieder abspeichern 
45384 Ida #8 ı exponent ’81° in zahlenstring 
433965 sta aztöstl,x 
43399 ida #°1 
as: sta alü6btz,x 
a33F4 rts 
433975 
453393 243395 Ida a2d6,x ; exponent-ziffer 
432378 ine a2ö6,K ; erhöhen 
45421 cap #9 ; war sie = 97 
SER rts 
454m 
45404 ı nächstes zeichen aus tTermatstring 
g) 
454 245454 clc 
454953 iny ; zeiger in formatstring erhöhen 
45406 beq a4a413 ’ überlaufs > 
453408 cpy a735 : ende des formatstrings? 
45411 bee 243417 iı nein: => 
453413 245413 Idy #al18 ; flag für ausgabe-abkbruch 
45415 : ı ges t: abbruch 
45417 445417 I our Ida tasl),yi zchn aus formatstr 
45429 ;i format-zähler erhöhen 
54ER 
45424 
45424 3; parameter initialisieren 
45424 
a4s42A  jer adaaıd 3 > frestr 
sta #311? s länge des au 
ldx #18 
Ida ##% 
a43433 sta a72l,x : parameterbereich löschen 
des 
bpl a45425 


4545397 stx a720 


trennkomma-flag 


® 
45442 stx *a136 ; offset 1, nachkommastelle 
45444 stx a717 ı collar-flaq 
43447 tax ı = 
45448 Lay ı=08 
45447 rts 
45450 
45450 ı zahl nach formatanue sung runden 
453450 
45450 3245450 clc 
45451 lda #al3o ı offset der 1. nachkommasteilie 
454573 adc a727 ı + nachkommasteilen im format 
45456 bes 3459153 ı überlauf: fertig -> 
45458 sen 
45459 sbc #a118 3 = zeichen vor der zahl 
45461 bec 3455915 ; ergebnis negativ: fertig -} 
45463 emp a718 ’ mit offset zahlende veraleichen 
415466 beq 345476 s gleich: -> 
45468 bes 345515 ; grö”’er: fertig - 
45478 a453470  cma 8717 ı mit offset zahlanfang vergleichen 
454775 bee 245935 ı kleiner: fertiqa -> 
453475 tax i offset der rundungsstelle 
45475 Ida a256,x i riffer aus zahlenstring 
453479 cmp #°5 i kleiner als 5? 
454931 bcc 3455153 ı jas fertig -> 
45493 a45483  cpx a717 ; erste stelle der zahl”? 
45486 beg a45498 s jas -> 
45488 dex : offset erniedrigen 
45497 isr 243395 3 007: ziffer inkrementieren 
45492 sty 3718 ; offset =: ende der zahl 
43495 beqa a45483 : übertraa entstanden: -} 
45497 rts 
45498 
45498 245498 Ida #1 ; auf 1 aufrunden 
45300 sta a256,% 
4550 ins : offset erhöhen 
45704 stx #al3o ; als offset 1. nachkommastelle sp 
453306 dec *s3118 B 
45508 bpl a45515 
43510 inc *al18 B 
45512 inc a724 i vorkommastellen der zahl 
45515 3455915  rts 
45516 


45516 3exp-darstellung normalisieren 
45516 

45516 a45516 1Idy #al3o 
45518 beq 345543 
45520 345526 1Idy a717 
45323 345923 1lda a256,y 


offset der 1. nachkommastelle 
keine vorkoammastellens -> 
offset des anfangs der zahl 
ziffer aus zahl 


IPTEERFEEFTEERPBEFT 


43326 cmp #0 = 9’? 

45328 rts 

45329 

43327 3453329 inc #alI0 : offset der I. nachkommastelle erhöhen 
4sssl jsr 245326 3 ==> exponenten erniedrigen 
45534 inc a717 : offset anfang der zahl erhöhen 
453537 cry 2718 ende der zahl erreicht? 

45540 beq 345515 ; ja: fertig -> 

453542 iny ; offset in zahl erhöhen 

45543 243343 jer 2455323 I um ziffer aus zahl = 0° 
45345 beq 345327 s jas > 


45548 rts 


45549 
45549 
45549 
45552 
45554 
45556 
45559 
45568 
45563 
45566 
45567 
45569 
45571 
45574 
45576 
45579 
45582 
45582 
45585 
45588 
45588 
45590 
45592 
45595 
45598 
45598 
45600 
45402 
45604 
45606 
45608 
45616 
45612 
45615 
45618 
45621 
45623 
45624 
45627 
45629 
45631 
45634 
45636 
45638 
45641 
45644 
45647 
45650 
45653 
45656 
45655 
45659 
45661 
45664 
45667 
45667 
45669 
45671 
45674 
45676 
45677 
45688 


;sformatier 


343347 


a43336 


a4sss 


a45382 


345388 


a43378 


345636 
a45639 


345656 


a456hl 


a45667 


345675 


lda 
bmi 
inc 
ldx 
dex 
ldy 
jsr 
inv 
camp 
brne 
bit 
bmi 
lda 


jmp 


lda 
jmp 


cmp 
bne 
lda 
jmp 


cap 
beq 
cap 
beg 
cap 
bne 
lda 
jer 
ldy 
jer 
bre 
iny 
jsr 
beq 
lda 
bit 
bmi 
Ida 
jsr 
ldx 
lda 
jsr 
ldy 
Jmp 


lda 
bmi 
lda 
jmp 


lda 
bne 
Cpx 
beq 
inx 
Ida 
»Dy 


#, 
a45588 
a720 
a45582 
al25s 
345686 


a733 
345686 


Fu 
a45598 
al257? 
345695 


#+ 
245661 
#- 
245654 
yon 


:a45709 


#’e 
2453744 
a723 
345323 
2456297 


a43323 
a43es6 
- 
a722 
343638 
#’+ 
245744 
a723 
a256ıX 
a45744 
a73s 
343676 


a732 
245382 
a732 
a45686 


*all8 
a45692 
a719 
a4ssBl 


a256,x 
44 


Sa a u 


IPPEEFTEPFEEPT) 


PRIUEFFEDERBEPE 


[PPEPPFEEFFERREBEFT, 


ausgeben 


dollar-flag 
schon "$’ ausgegeben: -> 


offset anfang der zahl 

erniedrigen 

feldanfang 

---> Ida (a6sl),y: zchn aus formatstr 
offset in formatstring erhöhen 
trennkomma? 

nein: -? 

schon ziffer ausgegeben? 

nein: füllzeichen ausgeben -> 
trennkomma oder pudef-ersatz 

---}> ausgeben, formatzähler erniedrigen 


" oder pudef-ersatz 
---}> ausgeben, formatzähler erniedrigen 


dezimalpunkt im formatstring? 
nein: -> 
’," oder pudef-ersatz 


% 


---}> ausgeben, formatzähler erniedrigen 


pluszeichen im formatstring? 

jer —# 

minuszeichen im formatstring? 
jas =F 

exponent-symbol im formatstring”? 
nein: -> 


---}> ausgeben, formatzähler erniedrigen 
offset des expanenten in der zahl 

---> 1. exponent-ziffer = %? 

nein: -> 


---> 2. exponent-ziffer = 6? 
jaı =» 


exponent-vorzeichen 


ee 
---> ausgeben, formatzähler erniedrigen 
offset 1. exponent-ziffer 

1. exponent-ziffer 

---} ausgeben, formatzähler erniedrigen 
feldende 

vorzeichen-ausgabe 

gesperrt: füllzeichen ausgeben -? 
vorzeichen 

---> ausgeben, formatzähler erniedrigen 


ende der zahl? 

ja: ersatzziffer 6 ausgeben -> 
offset erhöhen 

nächste ziffer aus der zahl 


45708 
45763 
45706 
43709 
43709 
45712 
45714 
45717 
45719 
45722 


45801 


a4sssal 


‘ 343633 


a456B& 


2 a45692 


a45709 


a45722 


245727 


345744 


ı tor 


3453751 
a453734 


«457683 


a45778 


a45782 


a43788 


345793 


a4s99l 


345744 
345563 


*a118 


ı a719 


a45shl 


a7197 
a1258 
3456953 


a72l 
a43667 
arzi 
a45722 
345582 


a728 
a43717 
a33137 
# 
345658 
a7a33 
245744 


a45727 


a37042 


c a731 


tstring au 


337942 
45754 


345768 
a734 


» *all9 


a459197 
a731 


a72l 


ww. 


PTEEPPEET 


trennkomma-flag setzen 
> ausgeben, formatzähler erniedrigen 
kein endezeichen: -> 


dallar-flag 
"$° schon ausgegeben: -> 


dollar-flag setzen 
’%’ oder pudef-ersatz 
---> ausgeben, formatzähler erniedrigen 


vorkommastellen-differenz 
= =} 

differenz erniedrigen 
jetzt = & —> 

---> füllzeichen ausgeben 


vorzeichen im formatstring? 

jas füllzeichen ausgeben -> 

---> lda {adl),y: zchn aus formatstr 
trennkomma? 

nein: -> 

’ * oder pudef-ersatz 

---> ausgeben, formatzähler erniedrigen 
offset in formatstring erhöhen 


---> zeichen ausgeben 
format-zähler erniedrigen 


werten 


feldende 

---} nächstes zchn aus formatstr 
---> zeichen aus (+, -1.,7,,#)? 
nein: -> 
teldanfang 
sg 25 


---» nächstes zchn aus formatstr 
formatstring zu ende: > 

---> zeichen aus (.,=,,#)7 

ar 2 

feldanfang 

zeichen aus formatstring 

> ausgeben 

---} zurück zum schleifenanfang 


nicht ’#’: -> 
feldanfang 
abbruch-flag gesetzt? 
ja: fertig -> 
format-zähler := © 


format-zähler erniedrigen 


45804 
439387 
45809 
4511 
45813 
45816 
45318 
45920 
45822 
43823 
45925 
453827 
45330 
43930 
45833 
45935 
45337 
453840 
45843 
45846 
45846 
45848 
453950 
459593 
45935 
45958 
45857 
45882 
45965 
45885 
45867 
43867 
45971 

45874 
453876 
45878 
45380 
45881 

45933 
45884 
45389 
458971 
45993 
45895 
45878 
45700 
43752 
45995 
459708 
45r1ö 
45913 
45716 
459719 
45726 
459720 
45922 
453724 
459725 
45728 
459731 


45804 


345927 


345930 


345840 


a45846 


a45865 


«45871 


a45971 


245705 


345917 


jisr 
bes 
emp 
beg 
jisr 
bec 
cap 
bne 
ins 
CpH 
bee 
;mp 


ist 
bne 
bee 
sta 
inc 
jmp 


cap 
bne 
bit 
bpl 
ELE 
ror 
dec 
Jmp 


cmp 
bne 
ldx 
jsr 
bes 
cmp 
bne 
dex 
bpl 
inc 
jsr 
bes 
emp 
bne 
lca 
bpl 

Ida 
sta 
Ida 
bne 
ror 
sty 
inc 
rts 


emp 
beg 
sec 
sty 
dec 
rts 


a45454 
a43925 
#, 

345804 
a458r1 
a45g01 
#. 

a453830 


#2 
34538964 
338049 


3459744 
345844 
345849 
a723 

a726,% 
a45B04 


#’$ 
345865 
a719 
a45849 


a719 
a726 
a45840 


ga 
345891 
#2 

245404 


a45871 
3729 
245454 
345925 
#+ 
245920 
a732 
a45905 
#’+ 
a732 
a728 
a45927 
a728 
a736 
a7al 


#- 


345905 


3756 
a73& 


en 


» nächstes zchn aus formatstr 
formatstring zu ende: -> 
trennkamma? 


3 ’,’-"? wenn ja, Übernehmen 
ja => 
dezimalpunkt? 
nein: > 


zweiter dezimalpunkt”? 
nein: => 


---; "syntax error” 


---> zeichen aus (=,,#?7 


vor= bzw. nachkommastellen zählen 
„--} nächstes zeichen 


dollar-zeichen? 

nein: > 

dollar-flag 

schon ein '#$’ gefunden: > 


dollar-flag setzen 
vorkommastellenzahl erniedrigen 


exponent-symbol”? 
nein: -> 


---} nächstes zchn aus formatstr 
formatstring zu ende: fehler -" 
insgesamt 4 mal ’“"? 


% 


nein: fehler -> 


exponent-flag setzen 

---} nächstes zchn aus formatstr 
formatstring zu ende: -> 
pluszeichen? 

nein: -" 

vorzeichen-flag 

vorzeichen im zahlenstring: -* 


vorzeichen-flag durch °+" ersetzen 
schon vorzeichen im formatstring? 
ja: fehler -> 
vorzeichen-im-format-flag setzen 
feldende 

format-zähler erhöhen 


minuszeichen? 
jet > 


feldende 
vermindern 


459748 
4597530 
45952 
453954 
45956 
45957 
45958 
459759 
45958 
45958 
45765 
45963 
45397659 
453768 
45771 
45974 
45776 
453979 
45781 
45784 
45786 
45788 
ar 
453973 
453995 
453798 
46a 
45003 
46005 
48568 
46068 
45089 
46511 
Asa13 
46016 
46018 
4658197 
46921 
46923 
45026 
46029 
46032 
46035 
44036 
45038 
46046 


3 245940 


a45937 
rs 
a45957 
972 
a45957 
## 
245957 


a45944 


245397783 
345408 
238027 
x *alo1 

345068 
a371978 


345778 


a4saag 
" *a97 
HE 
al2S9ıx 
*a97,x 


a4saılE 


a4ba23 


EL EEPPEET TE 


u. 


w. 


; 


dezimalpunkt 
zentriersymbol 
exponentsymbol 


ziffernsymbol 


INSTR 


1, deskriptor-zeiger umspeichern 


---> ausdruck auswerten 
---> prüfen ob string 
2. deskriptor-zeiger umspeichern 


Ls 


vorbesetzung für suchanfang 


» chrgot 


kein parameter: -> 

> parameter übernehmen 
---> prüfen ob ’)” folgt 
parameterwert 

nicht @: -} 

---> "illegal quantity’ 


zeiger in suchstring 


deskriptor-zeiger umspeichern 


Ida (a87),y: 1. deskriptor 


> 
£a 


lda (389) ,y: deskriptor 


länge des gesuchten strings 
=» fertig -> 


Seite 118 46942 
ana ads Ida #0 
46544 sta #299 i zeiger in gesuchten string 
4ands ele 
46547 Ida #294 ; länge des gesuchten strings 
46549 ade #297 ı + zeiger in suchstring 
an bes 245097 ı > 255: fertig -> 
4h0gE cap *aFl ı >» länge des suchstrings? 
469553 bcoc 246659 
46057 bne 344097 ı ja: fertig > 
46059 246959 Idy xa9B }ı zeiger in gesuchten string 
4anal cry #394 ‚ = länge des gesuchten strings? 
abe beg a4sa92 a jar m 
uns tya 
4066 cle 
46067 ade #497 ı + zeiger in suchstring 
460697 tay 
45078 jsr a33129 ı om: Ida (a92),y: zchn aus suchstring 
440753 sta #al20 ı merken 
46375 ldy #398 } zeiger in gesuchten string 
466577 jsr A 3 > Ida (a9D),yı zchn aus ges string 
4,080 can *al2o ‚ = zeichen aus suchstring? 
A6shaR beqg a4sh98 Rh jas oa, 
459094 inc #397 ’ zeiger in suchstring erhöhen 
aaa bne a45842 a Immer 
4098 
48 a4 inc #a98 ı zeiger in gesuchten string erhöhen 
tar) bkne 246059 s immer > 
AAHFZ 
45092 a inc #397 ı zeiger in suchstring 
46594 Ida #497 
46075 ‚by 44 
46097 244097 Ida #8 
4097 pha 
461% lda al2si ı 2, deskriptor-zeiger 
Asik ldy al262 
48518 jisr aam18 I mus frestr 
461597 lca 31259 ı 1. deskriptor-zeiger 
46112 ldy alzsa 
45115 isr 348018 I mom: frestr 
46118 pla 
46117 tay i zeiger in suchstring 
465120 jimp aar3ss } => nach fac bringen 
46123 
46123 ee TRAF 
23 adsl23 jsr au955R ‚= "illegal direct’ 
jsr e1145 ir chrgok 
begq 345138 ı trennzeichens abschalten -" 
jsr a4b417 I um: getadr: adresse holen 
sty allds ' 1,on-error-zeilennummer 
46137 ‚by 44 
46138 a46138 Ida #255 
Alan sta al267 1 Hasen 
46143 rts 


Seite 119 465144 


BAR I RESUME 

46144 

46144 a46144 jsr a39358 3 > "illegal direct’ 
46147 ldx a1245 ; on-errar-flag 

46150 inx 

46151 beq a46255 » nicht gesetzt: -> 

46153 jsr all45 , ——-} chrgat 

46156 beq 345229 ; trennzeichen: -+ 

46158 bec a4621B s ziffer: -> 

45160 emp #136 ; "next’-token? 

46162 bne a46262 sı nein: -> 

45164 jsr a46229 ı =—-> fehleradresse in programmzeiger 
46167 ldy #6 

46169 jsr a1189 ; > lda (a59),y: zeichen aus zeile 
46172 bne a46212 s micht zeilenende: -> 

46174 iny 

46175 jsr a1189 3 > lda (a59),y 

46178 brne a464189 

46188 iny 

46181 jsr all89 ı => lda (a59),y 

46194 bne 2464189 ; nicht programmende: -> 
44186 jmp 234430 3 7-> ready 

46189 

46189 a46189 1dy #3 

46191 isr all99 3 => Ida (a59),y: l,zeilennummer 
46194 sta #357 

46196 iny 

46197 ijisr al189 ı => Ida (a5N,y: hrs 
46200 sta *a58 

46202 tya ; offset 

Au2o3 Ele 

46204 adc #337 ; zum programmzeiger addieren 
46206 sta #359 

46208 bee ad6b212 

46210 inc *asd 

46212 a46212 jsr all3? ı > chrget 

46215 jmp a36272 3 => data: fortsetzung nach trennzchn 
46218 

465218 a46218 jsr 246417 3 70-> getadr: adresse holen 
4s2zl sta *a2l ; ? überflüssig! 

46223 jsr 246244 3 > fehlerstatus rücksetzen 
46226 jmp a36201 3 77} zeile suchen 

46229 

46229 a462297 Idı #1 

46231 346231 Ida al264,x ; zeilennummer 

46234 sta #a57,x 3 und 

46236 lda a1269,x ; programmadresse 

46239 sta #a59,x ; wiederherstellen 

45241 dex 

46242 bpl a46231 

46244 246244 Id #255 

46246 stx al26 ; fehlerkade 

46249 stx al264 i l,fehlerzeilennummer 

46252 stx al265 5 Nyuss 

46255 ldx ail2öß ;ı h,on-error-zeilennummer 
46258 stx al267 ; wiederherstellen 

46261 rts 

46262 

46262 a46262 jmp a59047 3 =0-> ’syntax error” 

46245 

46265 a46265 Id« #31 3 "can’t resume” 


46267 jimp a34435 3 0? fehlerausgang 


a ERR* 

a46270 jsr a40327 5 =: getbyt: fehlerkode übernehmen 
dex 
txa 
cmp #36 hoechster fehlerkode 


bes a46331 
isr a34397 
ldy #255 
idx #0 
a4s285 ins 
a46287 iny 


überschritten: fehler -} 
---> zeiger auf meldung (x) setzen 


PEEPREErT 


zähler für länge der meldung 
zeiger in meldung 


un 0. 


emp #” ; steuerkode? 
bec 346287 3 ja: nicht mitzählen -> 
bcs 246286 


a4s298 txa ‚ länge der meldung ohne steuerkodes 


jisr 239772 3 ==> platz für string reservieren 

ldx #8 

ldy #255 
a4bi0s iny 

lda fa36),y ; zeichen aus meldung 

enp #° 

bec a4630%& ; steuerkodes übergehen 

jsr 346354 37073 x und y vertauschen 

pha 

and #127 

sta (a98),y ;s zeichen in stringbereich kopieren 

jisr a4s334 3 77-7 x und y vertauschen 

inx 

pla 

bpl adsIos ;s nicht letztes zeichen: -} 

jmp a46138 ı => string in stack 
a46s321l jmp 339195 5 -—-> "illegal quantity’ 
a46324  pha s x und y vertauschen 

tra 

cha 

tya 

tax 

pla 

tay 

pla 

rts 

HEX$ 
3 707: prüfen ob numerisch 
’ adresse retten 
jst 240420 3 ==: getadr: adresse holen 
Ida #4 » länge der hex-adresse 


jisr 339772 ı => platz für string reservieren 
} FR a 


46400 
46402 
46463 
46404 


46494 


46494 
46404 
46407 
45408 
45409 
46411 
45413 
46416 
46419 
46428 
46422 
46423 
46423 
464253 
46423 
46425 
46428 
46431 
46434 
46437 
46438 
46448 
46443 
46445 
46447 
46449 
46451 
46453 
46456 
46458 
46460 
464653 


adssei 


3463976 


a46398 


a46464 


a46413 


a46423 
346425 


346460 


adszsl 


#azl 


a *a28 


a40138 
a 
a 
a 
a 


a4s396 


#48 


340908 


#4 
a46331 
alzaa 
al233,y 


a46415 


346425 
ali45 
a46473 
#252 
a46466 
#253 
246516 
345668 
*a77 
346473 
all45 
a465322 


PPPEFT ERPEE?T EORRBE?T BERREET} 


Pe un“. 


IPTEPRREEFFERPREEFTERPPREPT 


h-byte der adresse 

---: als 2 hex-ziffern in string 
l-byte der adresse 

---} als 2 hex-ziffern in string 
alte adresse wiederherstellen 


---> string in stack 


byte merken 
oberes halbbyte nach unten schieben 


---> in ascii wandeln und in string 
byte erinnern 

unteres halbbyte isclieren 

kleiner als 167 

jas > 

in bereich a,...,f transformieren 
ascii-kode vervollständigen 


s und in stringbereich speichern 


PODEP 


---> frmevl, chkstr, frestr 
länge 


gröer als 47 

ja: fehler -> 

---} 1da (a34),y: zeichen aus string 
in pudef-bereich kopieren 


DO 


programmzeiger 
und 
zeilennummer 
umspeichern 


---> chrgot 
trennzeichen: -> 
"until’-token? 

jas -> 
"while’-token? 
nein: fehler -> 
---> chrget, frmevl 
bedingung erfüllt? 
jär > 

== Ehrgot 

---} loop verlassen 


Asass adsdss je a4ass3 3 > chrget, frmevl 
44449 ida #297 ; bedingung erfüllt? 
46471 bne a45s4&55 3 jar > 
46473 345473  ldy #9 
45475 isr a33077 } u: platz im basic-stack prüfen 
46475 dey 
46479 Ida al27E ; h,programmzeiger 
44492 sta (al24),y 
46484 dey 
465495 Ida al272 De Pe 
46488 sta (al24),y 
44490 dey 
46491 Ida al275 ; h,zeilennummer 
46494 sta (a124),y 
45495 dey 
45497 lda al274 3 Ian 
45a sta (al24),y 
48502 dey 
46563 Ida #235 ; "do’-token 
46305 sta (al24),y ; auf basic-stack legen 
46397 rts 
46508 
HB I —— — — EXIT 
4uSoE 
455308 a465808 jsr a46s12 H > "do” im basic-stack suchen 
46511 ijisr all45 ı => chrgot 
46514 beq a46522 ı trennzeichen: -} 
46516 ad6äls jmp 239049 3} 70: "syntax error’ 
46519 
465319 a46519  jsr all39 3 ,-> chroget 
2 a465322 beq 346353 ı trennzeichen: -> 
cp #236 ; "lcop"-token? 
beq 346592 ı Zak >} 
emp #°" ; text? 
beq 246542 I jaı > 
camp #23 ; "do’-token? 
bne 346519 ı nein: => 
jsr 346517 3 ==> rekursion 
jnp a46448 3 ==> chrgot, loop verlassen 
46542 a46542  jsr all39 3 om chrget 
46545 beq 246353 ı trennzeichen: -} 
46547 cap #°" ; text-ende? 
464547 bne 246542 s nein: -> 
45551 beq 346517 iR Re 
46593 
4555 a46s53IE  cmp #° 3 
46535 beq 346517 ; kein zeilenende: -: 
44557 bit #3129 ; direktmodus? 
445337 bpl a46429 ’ ja: fehler -> 
46561 ldy #2 
465653 jsr al189 } => Ida (a5S9),y: h,linkadresse 
46566 beq 246627 s programmende: fehler -} 
46568 iny 
44569 jsr all87 3 > Ida laS9),y: l,zeilennummer 
46572 sta #357 
46374 iny 
465375 jsr all997 vi ide Nr 
455378 sta #a58 


46588 tya 


Seite 4581 
45581 Ele 
465392 adc #259 ; orogrammzeiger auf das ende des 
455324 sta #359 ; zeilenknpfes setzen 
44385 bec 246517 
46398 inc #268 
a7 bne 346519 ı immer > 
46572 
4592 346592 imp 336272 ;i => data: fortsetzung nach trennzeichen 
46595 
Be Jene LOOP 
46595 
4645975 3465395 beq a46642 ;3 trennzeichen falgtı -> 
45597 emp #255 i "ahile’-token? 
46599 beq 246437 ı jas -> 
san emp #252 ı "until’-token? 
45685 bne a4dsSls ı jes -> 
45405 jsr s4bs6d => chrget, frmevl 
46568 Ida #397 ; bedingung erfüllt? 
4bhle heq a46642 ı neins > 
46612 adsslE Ida #235 ; "do’-token 
46614 sta #a2 ; für stack-suche speichern 
46616 jsr 234929 3 => suche im basic-stack 
456197 be a46632 ; nicht gefunden: fehler -> 
46521 isr 342957 s => (al24,al25) := (a61,as2) 
4ha24 ldy #5 
As imp 242955 3 => (al24,al259 um y erhöhen 
466297 
456297 346429 i "loop not found” 
45h 
4ahzR a4bh3z ; "loop without da” 
44534 3 => fehlerausgang 
46437 


---> chrget, frmevl 
bedingung nicht erfüllt: -> 
---> "do" im basic-stack suchen 


46637 346637 
46640 
46642 346642 jsr a4661? 


PPEEFPEEFTN 


46645 dey 

44546 lda (asi},y ; aus dem basic stack übernehsen: 
465648 sta #a4d : h,programmzeiger 

46658 dey 

hl lda (asil),y 

45553 sta #259 ern 

45855 dey 

45656 Ida lasil),y 

46558 jsr 232607 3 7m: h,zeilennummer, ggf. direktmadus 
Aöhhl Ida lasl),y 

46663 sta #357 5 Iyuu» 

466653 jnn a46423 3-3 do 

45468 

46669 a46668 jsr all39? 3 => chrget 

46671 im a3767& 3 => auscruck auswerten 
46674 

2007 Se TRON 

46674 

46674 ad6674 Ida #255 

46676 ‚by 44 

46577 

a ee TReOFF 

46677 

46677 246677 Ida #08 

46679 sta a747 ; trace-flag 


44582 rts 


Seite 124 446583 
A587 3 MIDE(aM) = AS 
46693 
45683 a46683  jsr 


> prüfen ob ’(’ folgt 


44495 jsr a395965 i ——-> variable suchen oder anlegen 
46687 sta *#a73 ı l,variablenzeiger 

4661 sty #274 Y Hiyman 

45693 ist 337558 H prüfen cb string 

46695 jsr a40408 H > chkeom, getbyt 

46679 dex 

46700 stx #all? ; 1. parameter 

Au7uR enp #") 

46754 begq a46710 ; kein 2, parametersı > 

46706 jsr 340408 I 7om> chkeom, getbyt 

46759 "by 44 

46715 a467i6 1de #255 

46712 stx #a1l20 ; 2, parameter 

46714 jsr a39627 ı 7: prüfen ob °)° folgt 
46717 Ida #178 H token 

467197 jsr a38035 I => syntax check 

44722 jsr a37676 Fl ausdruck auswerten 
46725 jsr a37658 ’ > prüfen ob string 

46728 ldy #2 

467360 346726 Ida #a73 

4732 jsr all?72 ı => Ida (a),y: deskriptor des 
46735 sta arl,y ; zielstrings nach afl,a 393 
46738 jsr al244 => Ida talßG),yı deskriptor des 
46741 sta a94,y } einbaustrings nach a94,395,396 
46744 dey 

46745 bpl 346736 

46747 sec 

46748 lda *a95 ; l,adresse des einbaustrings 
46750 sbc #al1? ı - 1. parameter 

46752 sta #395 

46754 bes a46758 

46756 dec *a96 

46758 a46758 Ida. *al2o ;ı 2, parameter 

46760 cmp *a94 ı % länge des einbaustrings? 
46762 bec a46766 s jas => 

46764 Ida #294 ; sonst durch länge ersetzen 
46766 a46766 tax 

46767 beq a467?1 ; ergebnis = 8: fertig =" 
46769 ele 

46779 ade *a1l19 ı + 1. parameter 

46772 bes 346794 ı » 259: fehler -> 

46774 cnp #a9l ; > länge des zielstrings”? 
46776 bec 346780 

46778 bne 346794 ı jas fehler => 

46780 a467E8 1Idy *all9 ; L. parameter 

464782 346782 jsr aFslaı 3 > Ida (a9) ,yr zchn aus einbaustring 
46785 sta la92),y »ı im zielstring kopieren 

46787 iny 

46788 dex 

467897 bne 346782 

46791 346791 jmp agbal4 3 > frestr 

46794 


467974 346794 jmp a3719& ---} "illegal quantity" 


46797 
45350 
453053 
46805 
468887 
46969 
46811 
46814 
46814 
46816 
45818 
46917 
46919 
46821 
469324 
46824 
46924 
46824 
46927 
48928 
46830 
46833 
468936 
45958 
46348 
46845 
45845 
46847 
46950 
46852 
46954 
45957 
46850 
45960 
45860 
46958 
46956 
46962 
45963 
46864 
46865 
44868 
45359 
469872 
46874 
46877 
46879 
46881 
46883 
46995 
468883 
46883 


a46797 


a46814 


346819 


346857 


jsr 246914 
jsr a36414 
lda #a28 
sta #a115 
lda #a21 
sta *allö 
jmp a34430 


bit *a129 
bmi 346819 


ldx a1l263 


beq 346857 
lda 31264 
ldy al265 
sta #a28 
sty #a2l 
jsr a35397 
bec 346857 
ror #a83 
jsr a36926& 
ldx *a28 
lda #a21 
jsr a33648 
jnp a36926 


a Et ie 


DL BErFEE FT 


[PFEEFFEIPERLFTEEFEEEPFESRPREFT 


---> *direct mode only’ 


3 77-> zeilennummer übernehmen 


und als 


;s auto-schrittweite speichern 


---> ready 


direktmodus? 
nein: fehler -> 


"direct mode only’ 
---; fehlerausgang 


HELF 
fehlerkode 


nicht definiert: -> 
l,fehlerzeilennummer 
Fiss nn 


---} zeile suchen, adresse holen 
zeile nicht vorhanden: -> 

flag für fehlerlisting setzen 
---} cr ausgeben 
l,fehlerzeilennummer 


---> cr ausgeben 


; die folgende subroutine wird bei gesetztem flag a83, bit 7, 
i von der list-rautine bei jedem ausgegebenen zeichen gerufen 


346860 


3469657 


a46838 


ldx #396 
tya 

clc 

adc #395 
bcc 346967 
ink 

cpx al279 
bre 346898 
cmp al267 
bcec 246883 
beq 246838 
lsr #383 


Ida #130 


jinp a37042 


rts 


3 


re 


fehlerstelle erreicht? 


nein: -> 

flag für fehlerlisting löschen 
’blinkflag setzen’ 

---} ausgeben 


4hFcE 
4arss 
469797 
orte 
46 
465913 
46915 
469718 
46917 
46921 
46923 
44926 
45927 
46928 
4aFin 


345987 


346975 


346707 


a4s915 


346923 


aasF32 


5 a4h9T2 


4752 
470603 


a4s9a 


a469754 


a46977 


346784 


a469797 
a4a991 


den 
bne 
ora 
jsr 
tya 
bpl 
ldı 
Ida 


347015 
#0 
#0 


rı a1375-1,8 


346984 
*alL? 


ı *a118 
ı #5 


ag2asra,H 
a4sF15 
#a118 
as3498 


346767 


ad715S+6,% 
246989 


246932 


x *al28 
#9 


a46953 
46958 
+ 
265490 
ru 
265490 


abss7a 


346923 


4 #9 


a469777 
gan 
ass4F% 
#141 
ass4ro 


{ *all8B 
x #3 
ı 244895 


x #a128 


a a47135-E,8 


a4 


KEY ANZEIGEN 


nummer folgt: > 


key textlänge 
key nummer Ulaas.n8) 


"key &,® 


konkrete nummer einsetzen 


> bsout 


zeichen aus text 


einer der kodes 13, 141, 
jar > 


=: bsout 
> bsout 
m; bsauE 


textlänge dekrementieren 


---> bsout 
"shift return” 
— DEOUt 

key nummer 
kleiner als 8° 
jar > 


EEE” 
==> bsouE 


34, 


7a 
Er 


==> kode als bytewert ausgeben 


47815 
47818 
478019 
a7a21 
479023 
47026 
47926 
47028 
47931 
47034 
47037 
47539 
47642 
47042 
47044 
47946 
47949 
47952 
47954 
47053 
47958 
47061 
47863 
478653 
47066 
47067 
47571 
47073 
47074 
47877 
479797 
47591 
47083 
47084 
479897 
47096 
47092 
47995 
47974 
479977 
47120 
47182 
47102 
47185 
47106 
47169 
47112 
47114 
47117 
47126 
47121 
47122 


a472a15 


a47926 


a47042 


a47087 


a47182 


247189 


240324 


ı #8 


a47%326 
a3919& 


‘ #*al18 


a38033 
46068 
a47042 
a47153 
a34433 


347155 
a718 


ı #al18 


*a119 


al37d,H 
=47124 
a47102 


a?17 
a47154 
#129 
347154 


a717 
2718 
a47124 


al383,y 
al3BdT, x 
a47087 


a718 


a718 
a717 
347124 
al393,y 
al383,x 


347199 


==} bsaut 


KEY DEFINIEREN 


---> getbyt: nummer halen 


---} "illegal auantity” 


key nummer —- 1 

---} chkeom 

---> frmevl, chkstr, frestr 

---} text in textpuffer übertragen 
oks -> 

---} "aut of memory” 


text länge 


---} a := offset des textes {x} 
ende des letzten textes + 1 
nummer der funktionstaste 


=--} a ı= offset des textes (x) 
ende des aktuellen textes + 1 
nummer der funkticnstaste 
länge des neuen textes 


- länge des alten textes 
gleiche länge: -> 
neuer text kü 5 


differenz zum textende addieren 
überlauf: fehler -> 

ergebnis > 1287 

jar fehler -\ 

neues ende + 1 

altes ende + 1 

anfang des verschiebereichs erreicht? 
jat -> 

quellzeiger erniedrigen 
zielzeiger erniedrigen 

zeichen aus quellbereich 

in zielbereich kopieren 

immer -> 


negative differenz + altes ende 

= ende des neuen textes 

ende des alten textes 

altes ende des letzten textes erreicht? 
jas —> 

zeichen aus quellbereich 

in zielbereich kopieren 

quellzeiger erhöhen 

zielzeiger erhöhen 

immer > 


47220 
47221 
AT2R2 
47225 
47228 
47231 
47233 
47234 


a47124 


347139 


a47153 
a47154 


a471559 


a47166 


347169 


a47177 


a47228 


a47220 


a47222 


*a1l18 
347166 


al39F,x 


a471397 


”($rhc+"” 13 141 34 
#0 
a47154 


al375,X 
a47169 


a49324 


#2 


347285 


x #a128 


245414 


*a127 
a40414 


x *a128 
ı #2 


247298 


#0 
a47220 
#o 
a47z20 


a47235 


236932 
a1278,x 


ı al276,% 


a47222 


PART" WPSRer 7 a ae ae 


a a 


IPTEEFRREFT 


nummer der funktionstaste 
---> a ı= offset des textes (x) 


nummer der funktionstaste 
länge des neuen textes 
in längentabelle speichern 


---> lda (a34),y: zeichen aus string 
länge erniedrigen 

ende erreicht: fertig -> 

zeichen in textpuffer kopieren 
offset in puffer erhöhen 

offset in string erhöhen 

immer -> 


7 


anfangswert des offsets 


nummer der funktionstaste erniedrigen 
ende erreicht: -" 

länge des textes (x) addieren 

immer —> 


SsouND 


--- getbyt: sound typ holen 

sound typ 

gröer als 27 

ja: illegal quantity -> 

sound typ merken 

---> chkcom, getadr: tonhöhe holen 
gröer als 19237 

ja: illegal quantity -> 

l,tonhöhe 

Ryess 

---} chkcom, getadr: tondauer holen 
soundtye 

= 2? 

nein: -> 

auf 1 setzen 

h,tondauer auf stack legen 


tondauer = 07 
nein: -> 
auf 1 erhöhen 
immer > 


---+ stoptaste prüfen 
ausgabe des laufenden sounds 
im interrupt beendet”? 

nein: warten =" 


47235 
4723 

47238 
47239 
47241 
47242 
A724 
47246 
47248 
47250 
47253 
47255 
47258 
47261 
47262 
47265 
47257 
47269 
47272 
47274 
47277 
47230 
47283 
47234 
47285 
47285 
47288 
47288 
47290 
47293 
47293 
47293 
47293 
47296 
47298 
47300 
47302 
47305 
47307 
47309 
47312 
47313 
47313 
47313 
47313 
47316 
47318 
4732 

47324 
47327 
47329 
47331 
47334 
47334 
47335 
47336 
47337 
47339 
47341 
47343 


a47235 


a47285 


a47288 
847278 


a47313 


a47334 


a alz76,X 


#255 

#09 
al278,x 
+al26 
ab5294,x 


ı 47288, % 


1 ash 


#411111108 


ı #a127 
3 as9296, X 
ı #3128 


347290, x 
265297 


ı 263297 


a40324 
#7 
a47285 


ı #al2B 


a63277 
#411116000 
*a129 
a63297 


as0102 


#4 


a50137 
39043 
asdoBg 
#2 

a473534 
as9195 


a 

a 
*3159 
a47345 
*a132 
347332 


an 0a an 


PPPEEFTEEFTEPPFREFT 


tondauer 
negieren 


ergebnis 

für soundtym 1 in a1276,a1278 

für saundtyp Z in al277,a1279 
speichern; die beiden zähler werden 
im interrupt inkrementiert bis &, 
dann wird der sound abgeschaltet 
l,tonhöhe 


nach a45294 bzw, a65295 

h,tonhähe 

nach #a63299 bzw. a4529& {bits B,1) 
soundtyp (8, 1, 2 

bit 4 bzw. 5 bzw. & 


in 263297 setzen 


"illegal quantity"” 


voi 


---: frmevl, 
gröer als 87 
jas fehler -> 


getbyt 


eingegebener wert. 
vol einstellen 


FAINT 


---> farb-parameter holen 
zeiger in koordinatentabeile 
> koordinaten holen 

---> und in tabelle speichern 
---} rand-parameter holen 
gröer als 1? 

nein: -> 


---; "illegal quantity” 


rand-parameter 


ergibt rand-flag {bit 7) 
nicht gesetzt» -} 
farb-parameter 

= 6: fertig -> 
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472345 
47348 
473539 
47352 
47333 
47353 
47356 
47358 
47366 
47362 
47364 
47369 
47367 
47369 
47371 
47373 
47375 
47377 
47377 
47377 
47377 
47379 
47381 
47383 
47336 
47338 
47391 
47394 
47397 
47399 
47401 
47404 
47456 
474997 
47409 
47499 
47499 
47412 
47415 
47417 
47420 
47423 
47425 
47428 
47430 
47431 
47434 
47436 
47439 
47441 
47444 
47445 
47449 
47451 
47454 
47456 
47459 
47462 
47465 
47467 


347345 


a47377 


a47383 


a47391 


347481 


a47489 


a47420 


a47444 


a47457 


a49651 
447332 
347333 


a43348 
*249 
*as4 
*as5o 
#335 


*asl 
#3 
*a25 
*a52 
#0 
+a26 


x #0 
{ #3137 


*a138 


ı a687 


a47391 
ab98 
a687 
a49651 
47401 
a47383 
a687 
a474697 
3688 


349663 


ı a6B5 


a47420 
adda 
a685 
*a137 
a47519 
*#al37 


a685 
#2 
a685 
a47444 
3686 
*al38 
a47517 
*a1l38 
a6B5 
347459 
ada& 
a685 
a687 
a47470 
a698 


[PFESRREEFF, 


u 0 


---" punkt (x,y) gesetzt? 
punkt nicht im bereich: -> 
punkt nicht gesetzt: -} 


---> garbage collect 
variablenende 
=: zeiger in koordinaten-stack 


string-anfang 
-3 
=: maximaler stack-bereich 


ı-schleife 


flag für eintrag in stack "links” 
flag für eintrag in stack "rechts’ 
y-koordinate 


; vermindern 


PPFERLeN 


Pr 


---> punkt (x,y) gesetzt? 

punkt nicht im graphikbereich: -> 

punkt nicht gesetzt: weiter nach oben -> 
bis grenze erreicht, dann 

wieder einen schritt nach unten 


-schleite 


---> punkt (x,y) setzen/löschen 
x-koordinate um 1 erniedrigen 


flag für "stack-eintrag links’ 
---> stack-eintrag, flag setzen 
flag wieder abspeichern 


»-koordinate um 2 erhöhen 


flag für "stack-eintrag rechts’ 
---} stack-eintrag, flag setzen 
flag wieder abspeichern 
ursprüngliche x-koordinate 
wiederherstellen 


y-koordinate erhöhen 


47470 a47470 jsr 349651 3 =? punkt (x,y) gesetzt? 
47473 bes 247477 s punkt nicht im graphik-bereich -> 
47475 bne 3474697 ; punkt nicht gesetzt: neue y-schleife > 
47477 247477 1dx #3 
47479 ldy #9 
47481 lda #a33 s zeiger in koordinaten-stack 
47483 emp Kasd i stack leer”? 
47485 bne 247493 
47497 lda #334 
47499 cmp #349 
A749 beq a47516 ; ja: fertig -> 
47493 347493 Ida *a34 i zeiger in koordinaten-stack 
47495 bre 247497 ; erniedrigen 
47497 der *a35 
47499 347499 dec #a34 
47301 jsr al20a : => Ida (a34),y 
47504 sta a685,x : nächste koordinaten (x,y) aus stack 
47597 dex ; in koordinatentabelle bringen 
47508 bpl 247493 
47310 jsr a36032 B > abbruch wenn stoptaste gedrückt 
47513 jnp a47377 3 77-> neue x-schleife 
47516 
47516 a47S1& jmp a5094I i > anfangskoordinaten wiederherstellen 
475197 
47519 a47519 pha ;ı flag merken 
4752 jsr a496S1 3 =? punkt (x,y) gesetzt? 
47323 bes 347563 ; punkt nicht im graphik-bereich: -> 
47323 beg 3475369 : punkt gesetzt: -> 
475327 pla s rlag 
47528 bne a47371 ; bereits gesetzt: -> 
47330 tax ‚= 
475321 tay ‚=6 
47532 lda #*#a33 ; stack-zeiger 
7334 cmp *a2d ; schon am oberen stack-ende? 
47336 bec 3247549 
47338 bre 347546 
47548 lda #a34 
47342 cmp *a25 
47344 bec 247549 ı nein: -> 
47546 247546 jmp a34433 3 => "out of memary’ 
47549 
47549 347549 1Ida a685;,% ; koordinaten aus tabelle 
47532 sta (aj4),y ; auf stack ablegen 
47334 inc #a54 ® stack-zeiger erhöhen 
475336 bre a47568 
47358 inc #a35 
47560 247568 ins 
47561 cpx #4 
47363 bne 47549 
47565 Ida #128 ; flaqwert für "stack-eintrag’ 
47367 rts 
47368 
47568 347568 pla 
47369 Ida #0 s flagwert für "kein stack-eintrag" 


475371 347571 rts 


47572 
47375 
47378 
47588 
475382 
47595 
475388 
47598 
475972 
475395 
47595 
475398 
47601 
47604 
47667 
476%B 
47699 
47618 
47611 
47614 
47615 
47616 
47619 
47629 
47622 
47623 
47625 
47627 
47629 
47632 
47635 
47636 
47639 
47641 
47644 
47646 
47649 
47652 
47653 
47655 
47655 
47656 
47656 
47659 
47661 
47662 
47664 
47665 
47567 
47669 
47670 
47672 
47673 
47675 
47677 
47679 
47682 


a47372 


a47592 


347595 


a47641 


347655 


a47656 


jsr 
jsr 
cpx 
bes 
stx 
jsr 
cpx 
bec 
j;mp 


stx 
jsr 
jsr 
sta 
tya 
pha 
txa 
pha 
jsr 
txa 
ror 
ror 
pla 
sta 
pla 
sta 
Ida 
be 
ldx 
ldy 
elc 
jsr 
ldy 
cry 
beq 
jsr 
jsr 
iny 
bne 


rts 


jsr 
lda 
pha 
lda 
pha 
bit 
bpl 
pla 
beq 
lsr 
beq 
ldx 
bee 
ldx 
bes 


as5o105 
340408 
#40 
a47592 
a730 
340408 


a73l 
a38033 
a4and8 
a746 


a500895 


a 
a697 


*a54 


*#a35I 
*a1l3l 
347656 
a731 
a730 


a653320 


Er) 


a746 
a47655 
al208 
as5356 


a47641 


ası1135 
*a134 


*al52 


*al31 
a47684 


a47690 
a 
a47696 
*a1l33 
347692 
a65302 
a47692 


. 


. 


---; farb-parameter holen 

---> chkcom, getbyt holt spalte 
zulässiger spaltenwert”? 

nein: fehler -" 

spalte abspeichern 

---> chkcom, getbyt holt zeile 
zulässiger zeilenwert? 

jas -> 

---> "illegal quantity" 


zeile abspeichern 

---> chkcom 

> textstring übernehmen 
stringlänge abspeichern 
h,adresse des deskriptors 


Tigers 


---} getbyt halt rvs-parameter 


bit 7 = @: normal, = 1: revers 
l,zeiger auf string deskriptor 


Hs 

graphik-modus eingeschaltet”? 
jas > 

zeile 

spalte 


---} plot setzt kursor 
offset in string 
stringende erreicht? 
ja: -> 

---> 1da la34),y 

—-} print 

offset erhöhen 

immer -> 


---} prüfen ob graphic eingeschaltet 


farbe 1 (zeichen-hintergrund) 
farb-parameter 


graphik-modus 
nicht multicoları: -> 


farb-parameter = 0: -> 


farbe 2 


farbe 3 


47634 a47694 
47687 

47688 

47675 247698 
47692 247692 
47694 

47697 

476997 

47722 347702 
47795 
47708 
47711 
47714 
47716 
47719 
47722 
47725 
47727 
47729 
47731 
47734 
47735 
47737 
47739 
47748 
47742 
47743 
47743 
47744 
47747 
47758 
47752 
47754 
47755 
47758 
47737 
47757 
47768 
47761 
47763 
47763 
47767 
47779 
47772 
47773 
47774 
47776 
47779 
47786 
47732 
47794 
47786 
47788 
47778 
47792 
47794 
47796 
47798 
47200 


a47739 


a47743 


a4777& 


a4778& 


ass3al 


a47692 


x *#a1l34 
: #al34 
ı a731 


#0 
a732 
a732 
a732 
al2oa 
a74& 
a47739 
a739 
a47743 
a739 
#37 
347702 
#0 
a730 


#24 
347792 


*al34 


3496908 
347909 
#0 
*al26 


#4712101019 
*al26 
*a132 
a47813 
*al26 
a478097 


BE a ER ae ER N a ae a ae) A 


| 


PPFBERREFFN 


a ER a PPPEEPREEFT, 


EPTESRRLFT BEP EBR 


farbe ® (bildfeld-grundfarbe) 
farb-parameter = 0: -> 
farbe 1 (zeichen-hintergrund) 


zeile 

offset in string 
initialisieren 
offset in string 
offset erhöhen 


---> Ida (a34),y: zeichen aus string 


stringlänge erniedrigen 
string zu ende: -> 
spalte 

---> zeichen in bitspeicher bringen 
spalte erhöhen 
letzte spalte? 
nein: -> 


spalte := 8 
zeile erhöhen 
letzte zeile? 
nein: -> 


farbe 1 wiederherstellen 


zeichen aus string 

---> farbe speichern 

---> zeiger in bitspeicher setzen 
aus dem zeichenkode wird 

zunächst der bildschirmkode 
erzeugt, dieser wird um T bits 
nach links geshiftet, also mit 

8 multipliziert 


(a) := l,ergebnis 
(a126) 3= Nyre i 
l,zeiger in zeichen-bittabelle 


h,anfang der tabelle 1 (aus reset) 
h,zeiger in zeichen-bittabelle 
spalte merken 


8 bitstrings je zeichen 
rvs-flag 

in carry schieben 
bitstring aus tabelle 
nicht revers: -" 
bitstring invertieren 
multicolor? 

nein: -> 


bitstring 
farb-parameter 
gesetzt: -> 


; bitstring 


rvs-flag gesetzt: -> 


47882 
47303 
47805 
47867 
47897 
47809 
47811 
47813 
47813 
47815 
47317 
47819 
47821 

47821 

47923 
47825 
47826 
47829 
47830 
47930 
47932 
47933 
47835 
47936 
47838 
47839 
478465 
47841 

478342 
47842 
47842 
47842 
47845 
47847 
47950 
47952 
47855 
47358 
47861 

47864 
47867 
47869 
47871 

47974 
47874 

47877 
47878 
47379 
47392 
47883 
47885 
47887 
47387 
47898 
47893 
47896 
47398 
47700 
47963 
47906 
47907 
479097 
47912 


a479997 


a47813 


a47821 


a47830 


a47933 


a47974 


a47837 
a47898 


a473978 
a479700 


#2126 
#4101091010 
347833 


#7401019101 
a47833 


#2 
347821 
#al26 
a47833 


a47830 
*a126 
a 
*al26 
aa7g33 
*al26 


a 
(a140) ,y 


a47776 


asala2 
#a7 16-2495 
a5olh4 


ı #2728-26985 


a30137 
asnnsE 
a7z2a 
arzl 
a50995 
#2 
347974 
a39196 


x a744 


a48052 


a47713 
a47996 


a483182 


a47920 


x 2744 


== 


we 


Bbitstring in bitspeicher schreiben 
zeichen fertig? 
nein: -} 


spalte 
zeichen aus string 


BOX 
---> farb-parameter holen 


---> chkcom, 1. koordinatenpaar holen 
---> 2, koordinatenpaar holen 

---> winkel holen 

l,winkel (in grad) 

Auwss 

---> rand/fläche-parameter holen 
zulässiger wert & oder 17 

jat -? 

-—-: "illegal quantity” 


rand/fläche 


=--: drehung ausführen 


fläche: -" 
rand: > 


---> neue richtung 

---> strecke zeichnen 
alle seiten gezeichnet? 
neins -> 


ausgangskoordinaten wiederherstellen 


48007 
43008 
48010 
49612 
480173 
498014 
48016 
486197 
48021 
480253 
493026 
48028 
48038 
48032 
48033 


a47713 


a47923 


a47939 


a47945 


a47947 


a479597 


347968 


a47978 


a47993 
a47995 


a48612 


a48a23 


a47923 
#2 
a732,x 
a725 
a73s,x 
a727 
#0 

#3 


a47939 
#7 
a685,x 


a47947 
a49379 


ı #0 


ab, x 


x #8 


a47957 
a726 
3479778 
a727 
a47998 
a726 
#2722-3695 
#a712-a685 
a769 

a 

a479953 
#3710-2595 
#0 

a 


347910 
abBa,x 


abBd,X 


348012 
#410100409 


#3710-3685 
a759 
348023 
#3712-a685 
3709 


ı #2724-a495 


a47995 


ı #6 


a 
a47968B 


quadrant - 1 


gerade: -} 


3 x bzw. y-koordinatendifferenz 


; bereich a722,...,3725 löschen 


koordinaten auf stack legen 


i 777? strecke zeichnen 


koordinaten wiederherstellen 


koordinatendifferenz vermindern 


ı unterlauf: fertig -" 


; offset des cosinus 


quadrant - 1 


; gerade: -> 
ı sonst offset des sinus 


---} (a,y) s:= koly) + kotm) 


flags für koordinatenerhöhung 


offset des sinus 
quadrant - 1 
gerade: -> 


; sonst offset des cosinus 


quadrant wiederherstellen 


; andere koordinate auch -" 


flags für koordinatenerhähung 


= 8: > 


498035 a48035 bcc a49045 ; flag nicht gesetzt: -> 

498437 inc a685,x ; sonst koordinate erhöhen 

48049 bne a48045 

48042 inc a684,x 

48045 348045 asl a ı nächstes flag ins carry 

480465 dex 

48647 dex 

49048 bpl a498035 ; und weitermachen 

48050 bmi 247945 ; bis alle koordinsten bearbeitet 
48952 

111 For nl un Du nn u DREHUNG AUSFÜHREN 
48052 

48052 a48952 1dy #a720-3685 ; offset des drehwinkels 

48054 jsr a48214 3 =--> sinus und cosinus berechnen 
498057 ld #a716-2685 

48559 ldy #2729-3685 

48961 a480A1l ya 

49062 pha 

49063 jsr 349954 3 77-5 (a,y) ı= absikoly)-kotx)), p=sgn 
48966 sta a699,x 

48969 sta a693,x 

48072 sta a7@1,x 

48975 tya 

49976 sta a690,x 

48079 sta a694,x 

48992 sta a702,x 

48985 pla 

49995 tay 

430897 jsr 249910 ; => fa,y) := koly) + kole) 
48078 sta as85,x 

439973 tya 

48074 sta adßs,x 

48997 ldy #a738-2685 

49597 ins 

42186 inx 

48181 cnx #371B-a485 

43103 beqg 248061 

43105 Ida #410010909 ı sin/cos-flags (8: sin, 1: cos) 
49197 ist a4934l $ om: koord mit sin/cos multiplizieren 
48110 lda 3799 

49113 and #3 

43115 sta 2709 

48119 tax 

48117 lda 348152,» ! vorzeichenstring 

48122 isr a48182 3 => bildpunkt des 1. punktes berechnen 
48125 jsr 350943 3 77-3 koordinaten speichern 

49128 Ida 2714 i plusminus-flags 

48171 isr 349192 3} =: bildpunkt des 2. punktes berechnen 
agı34 lcd 2799 ’ quadrant — 1 

48137 Ida 348152,% ; bitstrings aus tabelle 

49146 and #711112009 

48142 sta a715 ; als plusminus-flags speichern 
49145 lda a48156,% 

48148 sta a714 

48151 rts 

48152 


43152 a48152 „by 410111110 411100100 Yolamaaoı Kaeaiioıl 
49156 a4B156 „by ZuilbnaBol ZOnniıdtl Alaliillle %il1aa1oo 


 ————— 

43140 

4314% ‚by ’fred b’ 13 

48167 ‚by ’terry r’ 

48175 „by "mike i’ 

48182 

I y BILDPUNKT BEI DREHUNS BERECHNEN 
43182 

43182 a48182 jsr 249389 5 => verdoppelte koordinaten berechnen 
43185 ldı #4 

48187 2481897 Ida a684,.% 

43190 asl a ı höchstes bit abtrennen 

agıl ror a6d6,«H ı koordinaten durch 2 dividieren 

48194 ror a689,x 

42197 bec 2498207 ’ niederwertigstes bit war muils 

4931997 inc ab85,x i aufrunden 

43202 bre 248207 

4g204 inc as9d,x 

48207 248207  ims 

23208 inx 

49209 cpx #5 

48211 beq a493187 

48217 rts 

49214 

a —————— SIN %& COS BERECHNEN 
487214 

48214 349214 jsr 249944 3 --> (a,y} ı= winkel 


48217 249217 Icdx #6 


48219 a48219 ins (a,y) durch 98 dividieren 


49220 sec 

48221 sbc #90 

49223 bes a48219 

48225 dey 

49226 bpl 348219 

4822 stx a709  quadrant des winkels 

48231 pha ; negativer winkel im 4. quadr 
48232 adc #970 ; positiver winkel im 1, quadr 
49234 jsr 249246 3 77-3 sinus berechnen 

498237 pla ’ negativer winkel im 4. quadr 
49238 eIE 

43239 eor #255 ; vorzeichen wechseln 

48241 adc #1 

48243 dec a769 ; quadr dekr zur cosinus-herechnung 


48244 248246 Idx #255 


48248 348248 ins winkel durch 18 dividieren 


43249 sec 

493259 sbc #18 

42252 bes 248248 

49254 ade #10 

49256 sta *=142 ; rest 

43258 txa ; zehnerwert 

482597 asl a ; verdoppeln 

4932658 tax ; ergibt zeiger in sinus-tabelle 
48261 lda a5e3II+1,x ı l,sinus 

48254 ldy a50335,% ; Diss 

49267 248267 clc 

48268 dec *a142 ; einerwert vermindern 


48270 bmi a48284 » negativ: fertig -> 
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48272 adc a5e375+1,x ; wert aus interpolationstabelle 
48275 pha ; so oft addieren, wie einerwert 
48276 tya } des winkels angibt 
48277 ade aS50375,H 
49280 tay 
48281 pla 
48282 bcec 3482367 ; immer => 
498284 
49284 a49284 pha ı 1l,sinus 
48285 ld #0 
498297 lda a769 ; nummer des quadranten 
48290 lsr a 
4291 bes 349295 s ungerade (gerade): x = -> 
48293 Idx #2 ı sonst: x = 2 
48295 a48295 pla ; ergebnis: 
49296 sta a710,x ; (a7i18,a7ll) s= abs(sin(w)) 
48299 tya ı (a71l2,a7iID) := absicos(w)) 
49200 sta a7liıx 
48303 rts 
49304 
DBEUE Ge — (A,Y) = KODIX)*SIN/COS 
48364 
48304 a48204 1dy #a710-as85 ı cc5 sinus 
48306 bec a48310 
48368 ldy #a712-a685 ı csı cosinus 
493310 a48I19 Ida 37097 ’ quadrant - 1 

#2 ı vorzeichen bestimmen 

a 

a ; +” setzt carry als vorzeichenflag 

a499744 I um fa,y) s= sin/cos 

#233 | ; sin/cos kleiner als 1? 

a4g332 3 jas ma 

s yıazı 

a499744 I =omr (a,yl a= ko) 

a4g3Es ı immer 

a49975 I oa any) am la,y) *# kolı) 

; vorzeichen 
a48365 He u 
a49957 3 => (a,y) ı= - (a,y) 


48341 
48541 5-7 4 KOORDINATEN MIT SIN 7COS MULTIFL 
aas4l 


4854 a48ı4l sta a714  sin/cos-flags 
49344 ldx #3720-3485 
43546 2498346 asl a7l4 ;ı sin/cos-flag ins carry schieben 
49347 jsr 249304 3 ==> (a,y) s= kolk) * sin/cos 
4a332 sta a695,x ı koln) := (a,y) 

ash 

#ta7289-3685 ı schon 4 koordinaten multipliziert? 


a48346 neins > 


a48366 
a49368 


348373 


348589 


a48396 


248429 


a48437 


a48465 


a48214 


a48373 
#401012008 
a4B341 
#700910000 
a7zı4 
#a716-a685 


ı #2720-a695 


a715 
a7ı4 
a47708 


a715 
a7ı4 
249904 


#3719-a685 


ı #a724-26859 


a43396 
#3 


a699,% 


«48429 


as1135 
345008 
a719 


x #ald 


*a37 


ı #2699-a685 


a30137 
asod8s 


#5 


a48465 
a39197&6 


ı a720 
ı #3 


a71? 
#3 
a48478 


.. 


=. 


ware 


IT EERPELFTERRREEFT) 


PTESPREFT, 


---} sinus und cosinus berechnen 


koordinaten umkopieren 


sin/cos-flags (@: sin, 1: cos) 
---} koord mit sin/cos multiplizieren 


sin/cos-flags 


plusminus-flag ins carry 


>» (a,y) »= kotly) + kolx) (ccı + 


plusminus-flag ins carry 


3 (a,y) 3= (a,yY) + kom) cc: + 
(a,y) auf stack legen 


zweimal durchlaufen? 


nein: = 


ergebnisse vom stack nehmen 
und speichern 


GSHAFE 


---} prüfen ob graphic eingeschaltet 
---> frmevl, chkstr, frestr 
stringlänge 

l,stringadresse 

Aacaa 


---}> koordinaten holen 
---} getbyt 

parameter gröer als 4? 
neins -> 

---> "illegal quantity’ 


ausgabeparameter merken 
stringlänge 


gröer als 4? 
ja: -> 


48478 
498479 
484892 
48485 
48486 
48488 
48491 
49494 
48497 
48500 
48553 
48506 
48508 
48Sıl 
48514 
48517 
49320 
49523 
48526 
495297 
48532 
4835 
49536 
49538 
49540 
48543 
49544 
49547 
48550 
43532 
49534 

abet} 
48557 
4ssal 
48561 
42264 
42566 
48566 
49568 
48370 
4385372 
48575 
48575 
48578 
485308 
48582 
48584 
49596 
48588 
49591 
48594 
48596 
4353997 
43600 
4803 
484%5 
49667 
48409 


348478 


a49506 


ads 


3 


[a 
je} 


a495347 


a49361 


a485375 
a485378 


349598 


348599 


aizil 


a7zsıX 


a48478 


ı a72l 


asnn43 


a49ssl 
a722 
a7rzE 

a 

a7al 
*al3l 
a493547 
a7Er 

a 

aral 


ı a720 


a49566 


| 348561 


a722 
a493789 


a7z2 
a43378 


3485997 
as86 


a 3729 
: #a131 


348610 
#2 
44 


PTESPPEReF: 


---> Ida (alö),y: die letzten vier 
zeichen aus dem string sind breite 
und höhe des shape-bereichs 


= 255: zeiger in string initialisieren 
---> koordinaten umspeichern 
breite des bereichs 


bitzähler initialisieren 
zeiger in string erhöhen 


---> Ida (alö),y: zeichen aus string 
nerken 

——--> punkt (x,y) testen 

bits ® und 1 sind die punktbits 
zeichen aus string nach links shiften 


bitzrähler erniedrigen 

graphik-modus 

nicht multicolor: -= 

zeichen aus string nach links shiften 


bitzähler erniedrigen 
ausgabeparameter 5 


kleiner als I > 


79 


p 4 
P== 
p >= 
p=1: 
p=2 
p=l 


bits ® und 1 isolieren 
grapbik-modus 


s multicolors > 


bit @ isolieren 

als farb-parameter speichern 

u punkt (8,y) setzen oder löschen 
koordinate x erhähen 


breite des shape-bereichs 
bei multicolor 


um Zu 


49610 a486510 sbc #1 ;s sonst um 1 vermindern 

48612 sta a729 

48615 lda a730 

48518 sbc #8 

48628 sta a730 

498623 bcs a4867% ; kein unterlauf: -> 

48625 ld« #1 

48627 248627 Ida a725,x s ausgangswert der breite 
49630 sta a729,x ; wiederherstellen 

486353 lda a689,x ; koordinaten 

49436 sta a685,x ; wiederherstellen 

486239 dex 

48548 bpl a48627 

49642 inc 26897 i y-koordinate erhöhen 

48645 brne a4865% 

48647 inc 2688 

48450 a48650 sec 

48651 lda a727 ; höhe des bereichs 

49654 sbc #1 ; um 1 vermindern 

48656 sta a727 

48659 lda a728 

48662 sbc #8 

49664 sta a728 

48667 bes 249678 sı kein unterlauf: -> 

48669 rts 

48476 

48670 248670 Ida a741 ; bitzähler 

48673 beq 248678 ı=bı -: 

48675 jnp a485323 3 om nächster x-wert 

48678 

48678 348678 jimp 249506 5 ——-> nächstes zeichen 

48681 

aabBl HE SSHAPE 

49681 

48681 a48681 jsr a51135 5 777> prüfen ob graphic eingeschaltet 
48684 jsr 238565 3 777} variable suchen oder anlegen 
48687 sta a731 ; l,zeiger auf deskriptor 

48690 sty a732 Aa 

48693 bit *al3 ı string? 

48695 bmi a48708 3; jaı -> 

48697 jmp a37668 3 > "type mismatch” 

48706 

48708 a48700 1d« #3725-a685 

48702 jsr a50164 } => anfangskoordinaten holen 
49705 ldx #36489-a495 

49707 jsr a56137 3 777? endkoordinaten holen 
48718 ldx #2727-a6985 

48712 ldy #a691-3685 

49714 lda #2 

487165 sta #*a142 

48718 348718 jsr 349954 3 => (a,y) ı= abs(koly)-koln)), p=sgn 
489721 tax 

48722 tya 

49723 pha 

48724 ldy *a142 

49726 jsr a50050 3 =7-> koly) := koly+4) 

48729 bec 248743 ; koordinatendifferenz negativ: -> 
48731 lda a725,y ; eingegebene koordinate übernehmen 
49734 sta a68S,y 

48737 lda a726,y 


487408 sta a6sB6,y 


48743 
48744 
48747 
49758 
48751 

49754 
49757 
493759 
49761 

49763 
49765 
49767 
49769 
49772 
48775 
48778 
42781 

49784 
48785 
49788 
49791 

48793 
49795 
48798 
493898 
49892 
43303 
49504 
49806 
43897 
493309 
asaıl 

48913 
48814 
43817 
48318 
48817 
48821 

49822 
493824 
48826 
49828 
49938 
48831 

49932 
49935 
489838 
48840 
49843 
48846 
43848 
49858 
48352 
48954 
43857 
489958 
43857 
49861 

49863 


348743 


a489788 


a48864 


248899 


349814 
a49817 


a48831 


348943 


a48952 


348357 


sta 


a73gny 


ı #a725-a685 


#a6899-a685 
*al42 
*a1l42 
348718 
#255 

a7rzl 


ı 2685 


a729 
a686 
a730 


a39772 
a49764 
(a148) ,y 
a48889 
3485 
*aldl 
248904 


#0 
*al31 
a49914 


x 3735 


a 


a48817 


#al3l 
348831 
a 


a685 
A685 
a49843 
ab9& 
349764 
#5 
a4aasz 
(al40),y 
*a1l45 
a7as 
a 


#8 
348957 
*al42 


3 


betrag der differenz 
als höhe bzw. breite des 
shape-bereichs speichern 


offsets für x-koordinaten einrichten 


nach erstem durchlauf > 


zeiger in string initialisieren 
»-koordinate 


: platz für string reservieren 
> zeiger in bitspeicher setzen 
byte aus bitspeicher 

punkt im graphik-bereich: -" 
l,x-koordinate 

multicolor? 

nein: -} 

bit 1 einrotieren 


bits ®,1,2 isolieren 

ergebnis als bitoffset für x, 
bitwert ® übernehmen 
multicolor? 

neins => 

bitoffset erniedrigen 
bitorfset merken 

bitwert 

ins carıry rotieren 


zurück ins bit 7 
und abspeichern 
inkrement für x 
multicolor? 
nein! -> 

sonst halbieren 


zu x-koordinate addieren 


---} zeiger in bitspeicher setzen 


punkt nicht im grahik bereich: > 
byte aus bitspeicher 

merken 

bitoffset vom letzten punkt 

byte aus bitspeicher nach rechts 
shiften und x erhöhen 


x» nach nicht Br -> 
ergebnis vom vorigen punkt einodern 
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48928 
48930 
439733 
493934 
43936 
48937 
49939 
43941 
49942 
48945 
48947 
499505 
48952 


a48878 


348894 


a489728 
a48930 


48955 


49957 
48957 
49961 
493963 
49956 
498968 
48971 
48973 
489776 
48979 
48979 
49982 
48985 
493997 
48998 
499953 
48996 
49999 


a499797 


a48998 


a323a0 


(a98) ,y 


{ a733 


@725 


(a98) ,y 


: #4 


34897530 


a754 
*+a978 
a735 
*+a99 
a7sb 
#1,a734 
*a1l00 
#h,a754 
*alol 
a731 
*a73 
a732 
*a74 
a36672 
aso043 


a727 
a687 
248998 
a688 
a729 
a685 
a730 
abR6 


IPPESPREErT 


a A a a a en 


zeiger in string erhöhen 


noch vier stellen frei? 

jet > 

---} "string too long’ 
byte in string bringen 
bitoffset 

breite des shape-bereichs 
multicolor? 

nein: -> 

breite bei multicolor um 4, 


sonst um 8 vermindern 


letztes byte aus bitspeicher 


s kein unterlauf: > 


h,breite des shape-bereichs vermindern 
kein unterlauf: -> 

l,höhe des shape-bereichs 

nicht nulli -# 

h,höhe des shape-bereichs vermindern 
kein unterlauf: > 

aqraphik-modus 

nicht multicolor: -} 

breite verdoppeln 


breite und höhe als letzte 4 bytes 


in den string schreiben 


stringlänge 
l,stringadresse 


Nysau 
adresse des quelldeskriptors 


übergeben 


zeiger auf rieldeskriptor 
übergeben 


---> string in stringbereich kopieren 
---> kolß) ı= kol4) 


l,höhe des shape-bereichs vermindern 
y-koordinate erhöhen 


ausgangswert der x-koordinate 
wiederherstellen 


49902 lda a734 ; ausgangswert der breite des shape- 
4955 sta a725 ; bereichs wiederherstellen 
49398 lda a735 

49@11 sta a726 

49014 jmp 348788 5 7-> weitermachen 

49617 

Hal > RGR 

49617 

49917 349017 Ida *al3i ; graphik-modus 

49017 Ele ra=ßb, 32, 9%, 140, 224 
49920 rel a 

49021 rol a 

49022 rol a 

49023 adc #9 

49025 tay sy = 8,1, 2, 5 4 
49026 jmp a39553 3 => (y) als gk-zahl nach fac 
49029 

8 a RELR 

49029 

49029 a49029 sec 

47030 “by 36 

49931 

5. 711,283 BO an nn 2 nn nn RLUM 

49a31 

49331 aaa clec 

49032 php 

49933 jsr a48327 3 => getbyt (9,...,4) 
49036 Ida a65305 ; farbe 4 

49237 and #12 ; bit 7 löschen 

a7a41 cpx #4 i eingabe 47 

49043 beq 249079 s jan > 

49045 bes a49086 s gröer als 4: fehler -: 
49547 ida a65361 ; farbe 8 

49950 and #127 ; bit 7 löschen 

497952 dex ; eingabe #7 

49053 bmi 249870 ı jaı > 

49959 lda *a134 ;ı farbe 1 

49957 dex : eingabe 17 

49558 bmi 349076 ’ jas -> 

yon lda *a133 ı farbe 2 

47062 dex ; eingabe 2? 

49nbE bmi 349070 ı jas 5 

49965 lda a65362 ; farbe 3 

49048 and #127 } bit 7 löschen 

49070 249970  plp ; carry wiederherstellen 
49571 bes 349078 s aufruf mit csı -> 

499773 lsr a ; "lum’ = bits 4,5,6 

49574 lsr a ; werden nach unten geschoben 
49575 lsr a 

49076 lsr a 

49077 elc ’ nichts addieren 

497578 a49078 ade #0 ; bei aufruf mit cs wird 1 addiert 
49098 and #15 ; oberes halbbyte löschen 
49082 tay 

470953 jmp a395I3 3 ==> (y} als gk-zahl nach fac 
47096 


49986 a490B4 imp a391?& 5 > "illegal quantity” 


7? 249089 


a49192 


a47132 


a49156 
a49147 


a49149 


a49166 


349169 


a49182 


sta 


ı #2 


a49708B& 
a49147,x 


{ 265288 


a63288 


ı a65288 


363288 
349182 


#255 


a40327 
#2 

a49169 
a4ru8& 
a49651 


a4916& 
#0 
a39553 
a 


as85,x 


abad,H 
a38001 


asm1o2 
#a716-3685 
a38137 
aganss 
a728 

a7zl 
asa0hz 
a722 

a723 


PPTEPRBREFT EERREE?T BHBREEeT BERPBERT, 


Pen] 


a a a an 


zulässige eingabe? 

nein: fehler -> 

bitmuster zur abfrage des 
jeystick-ports 


port aktivieren 


ı und lesen 


daten stabil? 

nein: warten -> 
datenbyte invertieren 
und merken 


richtungsbits isolieren 


richtungswert aus tabelle 


feuer-knopf gedrückt? 8 
nein: -> Fi 
bit 7 setzen & 


% 


---} (y) als gk-zahl nach fac 


RDOT 


---} getbyt (0, 1, 2 

kleiner als 2? 

jas koordinate ausgeben -# 
gröer als 2: fehler -> 

---> punkt gesetzt? 

gesetzt: > ®, nicht gesetzt; ® 
punkt im graphikbereich: -" 
sonst ® ausgeben 

---> (y} als gk-zahl nach fac 


eingabe 
verdoppeln 


eingabe &: »-koordinate 
1: y-koordinate 


---> (a,y) als gk-zahl nach fac 
CIRCLE 
---> farb-parameter holen 


---> mittelpunktskoordinaten halen 
---} x-halbmesser holen 
l,x-halbmesser 

NKusan 

---: y-halbmesser holen 
l,y-halbmesser 


Haze 


49208 php 

49299 ldx #a3720-2485 

49211 jsr 3498975 }707> scale 

49214 plp 

49215 bes 349234 ; letzte eingabe nicht leer: -> 
49217 lda a728 ; x-halbmesser 

49220 sta a722 ; =: yrhalbmesser 

49223 lda a721 

49226 bit #a131 s graphik-modus 

49228 bpl 349234 s nicht multicolor: -> 

49230 asl a722 ; sonst halbmesser verdoppeln 
49233 rol a 

49234 a49234 sta a723 

49237 jsr a50063 i ===> anfangswinkel des bogens holen 
49240 sty a728 ;ı l,anfangswinkel 

49243 sta a729 3 Duos. 

49246 jsr a50063 3 => endwinkel des bogens holen 
49249 sty a730 s l,endwinkel 

49252 sta a731 5 HDysen 

49255 jsr 350065 3 -—-> drehwinkel holen 

49258 sta *a128 ; a und y vertauschen 

49268 tya 

49261 ldy *a128 

49263 jsr a48217 } => sinus und cosinus berechnen 
49266 ldx #2730-3685 

49268 ldy #3728-3685 

49279 jsr a49925 3 ==> (a,y) ı= koly) - kotlx) 
49273 bcec 349289 ı anfangswinkel kleiner als endwinkel: -> 
49275 lda #1,368 

49277 ldy #h,360 

49279 jisr a49913 3 7-3 (a,y) ı= kolx) + (a,y) 
49282 sta a685,x ;s endwinkel um 368 grad erhöhen 
49285 tya 

49296 sta asßd,x 

49289 a49289 1dı #3 

49291 a49291 Ida a720,x ; halbmesserwerte umspeichern 
49294 sta a724,x 

49297 dex 

49298 bpl 249291 

49390 Ida #410018000 ‚ sin/cos-flags (8: sin, 1: cos) 
49302 jsr 249341 3 -7-> koord mit sin/cos multiplizieren 
49305 ldx #7 

49307 249307 Ida a720,x 

49318 sta a732,% 

49313 dex 

49314 bpl 249307 

49316 jsr 348366 3 ==> drehung ausführen 

49319 jsr a50043 3 ==> (x,y) wiederherstellen 
49322 ldx #2 ; ersatzwert 

49324 jsr a50087 I 7} getbyt 

49327 stx *#a233 ; schrittweite in grad 

49329 elc 

49320 a49330 Ida *#a233 ; schrittweite 

49332 bne a49337 » nicht nulls -> 

49334 imp a39196 3 => "illegal quantity’ 

49337 

49337 a49337 adc a728 s schrittweite zum anfangswert 
49348 sta a728 } des bogens addieren 

49343 bcec 249348 


49345 inc a729 


49348 a49348 1dx #a730-3685 ı offset des bogenendes 


49359 ldy #372B-a685 ; offset der aktuellen bogenkcoordinate 
49352 jisr a49925 3 => (a,y) := koly) — kola) 
49355 bes a49365 ; differenz positiv: -> 

49357 jsr a48366 3 ==> drehung ausführen 
493560 jisr a4937% } => strecke zeichnen 

49363 bec a49330 5 immer -> 

49365 

49365 a49365 1Idy #a730-a485 

49367 jsr 249368 3 ---> drehung ausführen 
49370 

—— STRECKE ZEICHNEN 
49378 

49370 a49379 1dx #a697-a685 ; offset von yi 

49372 ldy #a691-a685 ı offset von y2 

49374 a49374 1da #8 

49376 sta a697,x ; addend := & 

495379 sta as98,x 

49382 jsr 249954 3 77-3 (a,y) := koly) - ko) 
49385 bpl a49395 ı nicht negativ: -> 

49387 dec a697,x ; addend := 65535 

49390 dec a698,x 

49393 bne 349406 

49395 

49395 249395 cmp #9 ;s differenz = 07 

49397 bne a49403 

49399 cpy #0 

49491 beq a49406 s jas > 

49403 3494093 inc a697,x ; addend := 1 

49406 a49406 sta a693,x ; koordinatendifferenz abspeichern 
49469 asl a ; verdoppeln 

49418 sta a7al,x ; ergebnis abspeichern 

49413 tya 

49414 sta a694,x 

49417 rol a 

49418 sta a702,x 

49421 dex 

49422 dex 

49423 ldy #a6489-a685 

49425 cpx #0 

49427 beq a49374 ; nach dem ersten durchlauf -# 
49429 ldx #3695-a685 

49431 ldy #a693-3685 

49433 jsr a49925 3 =-> (a,y) 3= koty) - kolx) 
49436 lda #® }i nicht-negatives ergebnis setzt carry 
49438 rol a 

49439 rol a 

47440 sta a707 ; = ® wenn negativ, sonst = 2 
497443 eor #2 

49445 sta a768 ‚= 2 bzw & 

497448 eie 

49449 lda #16 

49451 adc a787 

49454 tay s = 16 bzw. 18 

49455 pha 

49456 eor #2 

49458 tax s = 18 bzw. 16 

494597 jsr a49925 37773 (a,y) »= koaly) - koalk) 
49462 sta a685, x 


#8 
a708 


a49925 
a705 
a706 
a49573 
a708 


.a49487 


a694,y 
349515 


a49515 a707 
a706 
i a49529 
a49556 
x a7a8 
a49529 
a705 
a7al,x 
a705 
3706 
a7d2,x 
a706 
x a708 
349556 
349487 
349556 


#2 
349559 a685,x 
a697,x 
ab85,x 


a49559 


a49573 a744 
a743 
a49603 
a685 
a49589 
asB& 
249603 
a685 
349600 
ab86 
a685 


a49587 


349600 


. 


. 


. 


b 
b 


18 


‚= koly) - kotx) 


---> punkt (x,y) setzen 


koordinatendifferenz vermindern 


kein unterlauf: -> 


---> inkrement addieren 


---} inkrement addieren 
immer -> 


---> punkt (x,y) setzen 


3496953 


349637 
a49642 
249644 


a49645 


a49651 


a497664 


3496579 


3496897 
a49689 


a 3497590 


a49937 
a49644 
349698 
349769 
a745 
(al4B),y 
a745 
*al31 
a49645 


{ t#al32 


a745 
asessl,x 
a745 


a745 
(a1l40),y 


ı *al32 


349642 
349639 


a49764 
a49589 
a745 
(al40) ,y 
a725 

a 


a47564 
a 
*a139 
a496797 
#3 
*al32 


#3 
347697 


ı #0 


Te FARBE 


ags278,X 
*a149 
ass32ssx 


#3 


#h,a7168 
*al41 


a 


a IPPPRFEL PP EFPPRLYT BPPPBEPT EFT) 


PUNKT SETZEN 


---} zeile und spalte nach 
graphik-bereich überschritt 


(1,y) 
en: -> 


---> farbe und helligkeit speichern 


---}> zeiger in bitspeicher 
bitwert des offsets 

byte aus bit-speicher 
bitwert einodern 
graphik-modus 

nicht multicolor: -: 


farb-parameter 
bitwert des offsets 


setzen 


und maske des farbparameters 


ergibt farbmaske 

byte für bitspeicher 
farbmaske 

byte wieder abspeichern 


farb-parameter 
nicht null: -> 
sonst -> 


FUNKT TESTEN 


---} zeiger in bitspeicher 
graphikbereich überschritte 
bitwert des punktes (x,y) 
byte aus bitspeicher 
punktbit{s) isolieren 

nach links rotieren 

bis die bits an den stellen 
stehen 


flag für vergleich gesetzt? 
nein: -> 
bits isolieren 


und mit farb-parameter verg 


bits isolieren 
beide null: -> 


UND HELLIGKEIT 


E 


l,zeilenadresse (x) 


hrs. 


setzen 


ns => 


2 und 1 


leichen 


SETZEN 


49795 jsr a49720 I 07-> farbkode erzeugen 

49798 sta (al40),y s und speichern 

49718 pla 

49711 ora #h,a6144 

49713 sta #al4l 

49715 jsr 349742 5 =——--> helligkeitskode erzeugen 
49718 sta (al40),y ; und speichern 

49720 a49720 Ida *a134 ; farb-parameter 1 (zeichen) 

49722 asl a ; farbkode in oberes halbbyte schieben 
49723 asl a 

49724 asl a 

49725 asl a 

4972 sta #al26 ; ergebnis merken 

49728 lda asSs3el ı farb-parameter & (bildhintergrund) 
49731 bit #al31 ı graphik-modus 

49733 bpl 349737 s nicht multicolor: -> 

49735 lda *a133 ; farb-parameter ® bei multicolor 
49737 349737 and #15 ; farbkode isolieren 

49739 ora *3126 } zeichenfarbe einodern 

49741 rts 

49742 

49742 a49742 Ida *#a134 ; farb-parameter 1 (zeichen) 

49744 lsr a ; helligkeitskode ins untere 

49745 lsr a ı halbbyte schieben 

49746 lsr a 

49747 lsr a 

49748 sta #al2 ; ergebnis merken 

49750 Ida asSsol ; farb-parameter & (bildhintergrund) 
49753 bit #al3l ; graphik-modus 

497535 bpl a49759 s nicht multicolor: -} 

49757 lda *#al33 ; farb-parameter ® bei multicolor 
49757 349759 and #248 i helligkeitskode isolieren 

49761 ora tal ; zeichenhelligkeit einodern 

49763 rts 

49764 

TE ee ZEIBER IN BITSPEICHER SETZEN 
49764 

49764 249764 jsr 349937 3 =-> zeile und spalte nach (x,y) 
49767 bes 3498008 » graphik-bereich überschritten: -} 
49769 249769 jsr 349809 } ==> byteadresse nach (al49,a141) 
49772 lda a687 ’ l,yrkoordinate 

49775 and #7 ı bits 0,1,2 

49777 tay ergeben y-affset 

49778 lda a685 ; l,»-koordinate 

49781 bit *aläl ; graphik-maodus 

49783 Php 

49784 bpl 349787 s nicht multicolor: -> 

49796 asl a s 1,x-koordinate verdoppeln 

49787 249787 and #7 ı bits 0,1,2 

49789 tax ; ergeben x-offset 

49798 Ida a49801,% ; bitwert des x-offsets 

49793 plp ; graphik-modus 

49794 bpl 349906 ı nicht multicalor: -" 

497976 ins ;ı sonst 

49797 ora a4990lın ; auch noch das nächste bit setzen 
47800 a499mR rts 

47801 


47801 a4980l „by 128 64 32 1684 21 ı bitwerte 


499053 


a49809 


a49837 


4 


a498 


[n 


D2 


‘ a49873 


a49875 


a47887 


349903 


tya 
Eis 
adc 
sta 
lda 
and 
adc 
asl 
rol 
asl 
rol 
asl 
rol 
ora 


as53298,x 
*a148 
a53325,x 
#3 

#0 
*al40 

a 

*a140 

a 

*a140 

a 
#h,a8192 
*al4l 


a685 

a 
a49873 
a685 

a 

a 
*a131 
a497853 
a 


#40 
a49875 
a688 
249873 
3697 

a 


a742 
a49903 
*a139 
a47887 
*ali6 
a 


#0 


a49975 
as8s,x 


a685,x 


. 


IPFEEFFESPREEFFERRREEPTBEFT 


IPPERFRBEFFE 


ZELLE 


a7 LEEPREFT BPFRBEFT BEPRBLYT NARBE”? BRREL?T BRBBE?T BRRREEPT, 


spalte 


+ l,zeilenanfangsadresse 
=: ],bytezeiger 
h,zeilenanfangsadresse 
bits @ und 1 isolieren 
carry addieren 

die ganze adresse 

mit 8 multiplizieren 


h-byte der adresse 
+ basisadresse des bitspeichers 
=: h,bytezeiger 


s SFALTE NACH RW) 


h,x-koordinate 

gröer als 511? 

ja: nicht im graphik-bereich -> 
l,x-koordinate 

durch 4 dividieren 


graphi k-modus 

multicoları -> 

nochmal durch 2 dividieren 

ergebnis 

gröer als 39? 

ja: keine zulässige spaltennummer -> 
h,y-koordinate 


s nicht nulls micht im graphik-bereich -> 


l,y-koordinate 
durch 8 dividieren 


mit graphik-zeilenzahl vergleichen 


SCALE AUSFÜHREN 


scale-flag 


s nicht gesetzt: -> 


spaltenzahl 
---> x-koordinate umrechnen 
zeilenzahl 


ı verdoppeln 
* 256, weil h-byte 
l-byte 
---> (a,y) := (a,y} * kon) / 65536 


neue koordinsatenwerte speichern, 

die »-koordinate ist mit 46/256 (bei 
aulticolor mit 26/256), die y-koordi- 
nate mit 25/256 multipliziert worden, 
dadurch haben beide koordinaten nun 
den maximalwert 1923 


a > AR, YIJ BE CR, TI => KEERIT 
49994 

49904 349904 bcc 349913 s cc: addieren -> 

499706 bes 2497728 3 cs: subtrahieren -> 

49998 

a VERE A  e n n aA, Y3 ee KOEY) +4 KB IR) 
49908 

499708 a49908 bes a49925 ı cs: subtrahieren -" 

49710 349910 jsr 2497944 3 => la,y) ı= koly) 

49913 a49913 clec 

49714 adc a685,x ; kolx) addieren 

49917 pha 

49718 tya 

49719 ade a694,x 

49922 tay 

49923 pla 

49924 rts 

49925 

u {(A,Y = KOeY) = KOEN) 
49925 

49925 349925 jsr 249944 3 => (a,y) := koly) 

49928 349928 sec 

49929 sbc a685,x ; kolx? subtrahieren 

49932 sta *387 

49934 tya 

49935 sbe a6B6,x 

49938 tay 

49939 php 

499740 lda #287 

49942 plp 

49943 rts 

49944 

4994 m tA,YY ı= KOCYV) 
49944 

499744 249944 Ida a685,y ; 1,koly) 

49947 pha 

49948 lda a6B6,y ; h,koty) 

49951 tay 

499532 pla 

49953 rts 

49954 

4904 (A,Y) s= ABS CKOM - KO I) 
49954 

49954 a49954 jsr a49925 -—-} (a,y) ı= kaly) - kolx) 


49957 349957 bpl 349974 
49959 a49959 php 


nicht negativ: fertig -} 
vorzeichen merken 


N we 


497960 clc {a,y} negieren 
49961 eor #255 

49963 adc #1 

49965 pha 

49766 tya 

49967 eor #255 

49969 ade #6 

49971 tay 

49972 pla 

49973 plp ; vorzeichen erinnern 


49974 249974 rts 


S5BO0E 
50005 
59897 
509909 
59218 
50013 
59014 
59017 
59026 
SOHzT 
59024 
30027 
SOa28B 
598029 
5oaF1 
SOB3I 
30036 
s5au38 
59039 
5on46 
59043 
59045 
50043 
59043 
50045 
Sena4B 
50958 
59053 
59056 
50059 
50062 
50063 
59063 
50063 
500963 
5auadh 
5a058 
son71 
59073 
50075 
50078 
30079 
59080 
SIORBO 
50082 
59283 
300894 


a49975 


agoooT 


a50024 


a300397 


asao43 


a30o5o 


agan6s 


asvagd 


a50084 


349957 
a685,% 


3686, % 
#0 
a7sı 
#16 
*3142 
*a1l43 
a50024 


ab85,x 


a7sl 
as86,x 
a7?si 


a7al 
a 


asoadT 
#0 
a7sı 
a50037 


349957 


#0 

a50a5o 
#2 

a689,y 
ass, y 
ab9a,y 
asßd,y 


all45 
asanana 


a40417 


#0 
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PPPELFTERPREEFT, 


. 
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Pr 


[PDERRREF PESPFEEFTEERPEEr 


h,multiplikator 


Au 
l,koordinate 
Mesa 


vorzeichen merken 
---> negieren, falls negativ 


l,ergebnris löschen 

Ayese 

bitzähler 

multiplikator nach rechts shiften 
bit = @: -> 


koordinate zum ergebnis addieren 


ergebnis nach rechts shiften 


bitzähler erniedrigen 


s noch nicht fertig: -> 


letztes bit addieren (aufrunden) 


vorzeichen erinnern 
---} negieren, falls negativ 


:=KOt(4), KO(2):=K0 (6) 


---> koly) ı= kaly+4) 


ADRESSE UüÜBERNEHMEN 


=> chrgot 
trennzeichen: -> 
---> chkcom 

noch ein komma? 

jas > 

---> frmevl, getadr 
flag für "eingabe’ 


ersatzwert @ wenn keine eingabe 


flag wür ’ersatzwert’ 


5885; --_ mm BYTE ÜBERNEHMEN 


50985 a500685 Idx #0 ersatzwert @, wenn keine eingabe 


* 
59087 256087 jsr all45 377: chrgot 
Sa0a98 beq 356084 } trennzeichen: fertig -" 
50092 jisr a38033 3 ===> chkcom 
50095 cap #’, ; noch ein komma? 
50097 beq a5a084 } jas fertig -> 
5399997 jmp 246324 5 77-> frmevl, getbyt 
50182 
Bol Be FARR-FARAMETER UüRBERNEHMEN 
58192 


S5e102 a5S0102 jsr aS1l135 
50105 a50105 Idx #1 


---> prüfen ob graphic eingeschaltet 
ersatzwert 1, wenn keine eingabe 


a ER ae A 


50187 jsr al145 ---> chrgot 

Selle a5ellß begq asß131 ı trennzeichen: -> 

58112 camp #’, 

58114 beq a50131 ; kommas > 

Soll jsr 340324 3 777> frmevl, getbyt 

50119 cpx #4 ; gröer als 3? 

So12 bes a50134 ı ja: fehler -> 

530123 cpx #2 ‚ gröer als 17 

50125 bit #al3l ; graphik-modus 

539127 bmi a5o131 ; multicolor: ok -> 

501297 bes a5ß134 ; sonst fehler wenn gröer als 1 -> 
Ssa131 aselSl stx #a132 ; als farb-parameter speichern 
30133 rts 

50134 

50134 a50154 imp a39196 35 773 "illegal quantity" 
58137 

Ga) ES nn nn nn KUDRDBINATEN ÜBERNEHMEN 
50137 

58137 a56137 jsr all45 4 = chrgot 

56140 beq a5d149 ı trennzeichen: -> 

59142 jsr a38033 3 7-> chkcom 

50145 cmp #’, ; noch ein komma”? 

30147 bne a50167 si nein: > 

536149 350149 1Idy #0 

S5a151 aSe15l Ida a685,y ; ersatzwerte ko(®), wenn keine eingabe 
50154 sta a685,x 

50137 inx 

30158 iny 

39157 cepy #4 

sa161 be as®151 

Ia163 rts 

52164 

So1l64 a50164 jsr a380FT 3} ==> chkcom 

50167 a50167 stx a732 } koordinaten-offset 

30170 jsr a50319 5 ---> 1. koordinate holen 
39173 jsr ail45 377-5 chrgot 

39176 cap #’, ; rechtwinklige koordinaten? 
56178 beq a50266 I jas > 

so186 emp #"5 ı polarkoordinaten? 

56182 begq a50187 ı jan => 


50194 imp a38049 ---> "syntax error” 


FOLARKOORDINATEN 


50187 a58187 jsr all39 3 7-3 chrget 
so17a jsr a40417 3 7} frmevl, getadr 
50193 sta #a128 s a und y vertauschen 
50195 tya 
59196 ldy #2128 
50198 jisr 349217 3 => sinus und cosinus berechnen 
Ssozeol ldx a732 ; koordinaten-offset. 
5e204 lda a695,x ; koordinaten umspeichern 
50267 sta a687,x 
Sa210 lda a686,x 
SO213 sta a688,x 
30216 jsr a49875 3 777> scale ausführen 
56217 Ida #400501110 ; sin/cos-flags (Br: sin, 1: cos) 
so221 sta a753 ; merken 
530224 ele 
50225 ldx a752 ; koordinatenoffset 
50223 35022 jsr 249304 3 => (a,y) ı= kolx) * cos/sin 
Ssazz1 sta a695,x ; ergebnis speichern 
So234 tya 
50235 sta a6b86,x 
5238 ldy #26985-2495 
s0240 lsr 3753 ; nächstes flag ins carry 
So243 bec a50247 ; nicht gesetzt: 
50245 ldy #2597-a2595 
50247 350247 jsr 249908 37773 la,y) ı= koly) +- koln) (cc: #) 
50250 sta assj,x ; rechtwinklige kooardinaten speichern 
SO2I3 tya 
30254 sta a696,x 
50257 inx 
50258 inx 
50259 lsr a753 
S0262 bne a50228 ı nach dem ersten durchlauf -> 
Tor64 Ne 
30265 rts 
50266 
Ba RECHTWINKLIGE KOORDINATEN 
50246 
SoRs6 aS0266 jsr a1139 3} 77: chrget 
592597 inc a732 ; koordinaten-offset um 2 erhöhen 
39272 inc a752 
530273 jsr agazl9 i -—-> koordinate holen 
502783 ldx 2732 ; koordinaten-affset 
sazsi dex 
50292 dex 
50293 jsr 249975 5 => scale ausführen 
50285 ldv #36487-a685 
50288 ldx a752 
seozFl inx 
3a2F2 ins 
SO29I aI029I  dex 
SOZF4 dex 
30295 lsr a753 ; relative koordinate? 
50298 bee a50318 i neins > 
SOTOH isr 349919 3 7-3 (a,y) s= koatly) + koflz) 
SOIBTE sta asBs,n ; neue koordinate speichern 
SOFa& tya 
50367 sta a686,x 
soFla a5S0I16 1dy #36599-a435 
cpx a752 
beq a592973 ; nach dem ersten durchgang > 
eie 


O3 2 1 —— KEDORDINATE HOLEN 
593197 

s0319 a5S0319 jsr all45 35 => chrgot 

50322 cmp #170 ; °+’ token? 

50324 beg a50331 ı jas —> 

50326 cmp #171 3 ’-’ token? 

3932 beq a50331 jan > 

SR330 elc 

s3aFs1l aSeoIsl rol a7 ı flag für ’relative koordinate’ 
50334 jsr a37632 3 777> franum 

50337 jsr 240424 3 07-> getadr+4 

50340 ldx a752 ; koordinaten-offset 

50343 sta a686,x ; koordinatenwert speichern 

50346 tya 

50347 sta a695,x 

S5a3se rts 

5o351 

Be EONSTANTEN 

56351 

39351 aS0351 „by %11111111 710101010 461910101 8 ; konst f multicolor 
50355 

S3o33I 3 sinus-tabelle 

30333 

30355 a50355 „by 90 3 a = He #9, aan sin & grad 
50357 „by 44 113 s 11377 0.1736 10 
50337 «by 87 141 ; 22413 0,3420 20 
SO361 “by 128 8 ı 32768 4.5908 36 
30363 .by 164 143 s 42127 9.6428 45 
39365 “by 196 25 s 50201 6.7666 So 
30367 „by 221 178 ; 536754 9.8668 {E12} 
39369 "by 248 144 ; 61594 0.7397 78 
s5a371 .by 252 28 ı 64548 0.7848 35 
50373 ‚by 255 255 ı 63539 1.8000 75 
50375 

50373 a30375 „by 4 114 s 1138 interpolationstabelle 
58377 .by 4 88 ; 1194 

30379 “by 4 11 1935 

se3al “by 3 168 3 936 

503893 ‚by 3 48 H 808 

303895 ‚by 2 144 H 656 

39387 by 1 227 H 483 

50389 “by 1 48 H 296 

50371 .by 8 99 ; 7 

50393 

30393 I DRAMUW 

50393 

SaF93 a5039I jsr a51135 5 => prüfen ob graphic eingeschaltet 
30396 jsr al1l45 3 77-> chrgot 

50399 beq aS50419 ı trennzeichen: fertig -> 

50401 ldx #1 

30403 cmp #164 ; "to’-token 

50405 jsr a5ß110 } => farbparameter holen, wenn angegeben 
50408 a5a408 jsr all45 3° ---> chrgot 

so41l1 cap #’, 

50413 beq a56420 ; kommas > 

50415 cmp #164 ; "to’-token? 

50417 beq a50426 ; jas —> 


50419 a50419 rts 


50420 a504260 pha 


59421 jsr a1139 35 => chrget 

50424 ldx #a689-a685 

30426 jsr 350167 3 77-> endkoordinaten holen 
50429 pla 

59430 bpl a50438 s nichE "tn: — 

SO432 jsr a493760 3 70-> strecke zeichnen 

59435 jmp 250498 ı 77-> befehl weiterbearbeiten 
50438 

50438 a50458 jsr a30043 3 ---> anfangskoordinate := endkoordinate 
50441 jsr a49573 3 > punkt setzen 

59444 jmp a50408 3 ---> befehl weiterbearbeiten 
50447 

0 ee LEERTE 

50447 

50447 a50447 jsr aS1135 5 77-> prüfen ob graphic eingeschaltet 
50450 ldx #3689-695 

50452 jsr a50167 H > koordinaten holen 

50455 jmp a50B453 } > und als ko(ö) speichern 
30458 

Do ————— COLOR 

50458 

50458 a50458 jsr 3405324 }5 70 farb-parameter holen 
50461 cpx #5 ; gröer als 4? 

50463 bes a50532 s ja: fehler -> 

50465 stx *al26 ; farbparameter 

50467 jsr 240468 ; 70: farbe holen 

50470 dex 

sa471 cpx #16 ; farbkode gröer als 16? 

50473 bes a50532 s ja: fehler -> 

50475 stx #a127 ; farbkode 

58477 ldx #7 ; ersatzwert 

50479 jsr 350087 } 7-> helligkeit holen 

560482 epx #8 ı gröer als 7? 

50484 bes a50532 s ja: fehler -> 

50486 txa ; helligkeit 

50497 asl a ; ins obere halbbyte schieben 
50488 asl a 

50489 asl a 

504908 asl a 

5a491 ora *a127 ; farbkode einodern 

50495 ldx *al26 ;i farbparameter 

50495 cpx #1 

530497 beq 350505 ‚s=1 > 

50499 bes a50513 sı gröer als 1: -> 

sesel sta ad65301 ; = ©: bildhintergrund 

50504 bne a505731 ; immer -> 

59506 

Sons as0506 sta *#all4 ı = 1: farbe für graphik-punkte 
Seas sta al33? s und für normale print-ausgabe 
ses1l begq aSo531 s immer -> 

SOF1I 

Sa51I aToT13 cpx #3 

S5oSs15 beq a30523 ı = 5: - 

50517 bes a50328 ı=4: -> 

59519 sta #al3S ı = 2: 1. farbparameter für multicolor 
50521 bne a50531 s immer > 

30T23 

30523 a50523 sta a65I02 ı = 53: 2, farbparameter für multicolor 
50526 beq aSe531 s immer -> 


50328 a50528 sta a65305 ;s = 4: bildrahmen-farbe 
Sol aSessl rts 

59532 

50532 a50532 jmp a3919& ; 77: "illegal quantity’ 
50535 

5535 SCNECLR 

59535 

Ss93735 a30535 Ida *al3i1 ; graphik-modus 

530337 bne a50544 » eingeschaltet: -> 

50537 a50539 1da #147 ;s clr 

So541 jnp a65490 3 ===> bsout 

30544 

50544 a505344 and #64 ;s mit text? 

50546 beq 350557 s nein: > 

39348 jsr a50537 5} => bildschirm löschen 
sossl ldx #28 ; zeile 

SOITE ldy #0 ; spalte 

30355 elc 

S9336 jsr 365328 } ==> plot: kursor setzen 
305377 a50557 Ida #0 

50561 ldy #h,a8192 

303563 ldx #22 ; anzahl der pages 

50365 jsr 350599 3 > bitspeicher löschen 
59568 jsr a49726 H ' (a) := farbe 1/® (zeichen/hintergr) 
50571 ldy #h,a7168 

530373 ldx #4 ; anzahl der pages 

50375 jsr a5305997 } => farbspeicher löschen 
505378 jsr 249742 3 7773 (a) s= helligkeit 1/8 
Sosel ldy #h,a6144 

30333 ldx #4 

S5a585 jsr 350599 i 07-> helligkeitsspeicher löschen 
5o59d lda #90 

Saz70 ld“ #3 

33392 a50592 sta a685,x ; koordinaten (x,y} :ı= (6,0) 
530375 dex 

305976 bpl 3530592 

55978 rts 

536599 

305977 350599 sty *al41 ; h,zeiger in speicher 
Sohß1l ldy #8 

30603 sty #a140 5 Iswur 

30605 a59405 sta (al4d),y ;ı löschroutine 

79667 dey 

Sosog bne a30405 

5O516 inc #a141 

Sostlz dex 

Sa613 bne a50665 

530615 rts 

5051& 

Br | SCALE 

5u616 

öl albeld jsr a40324 } ==> scale-byte holen 
Sah17 cpx #2 

062 bes aS0IE2 ; gröer als l: fehler -> 
Sos23 stx 2742 ı scale-flag 


30626 rts 


GRAFPHIGC 


50627 a58627 cmp #156 folgt ’clr’-token? 


’ 
50629 bne a50641 s nein: -> 
SasF1 jsr aS1006 5 777? normale speicheraufteilung 
50634 jsr al139 3 ---> chrget 
530637 lda #8 
50639 beq a506551 ; immer -> 
Sa641 
50641 a5@0641 jsr a40324 5 77-> graphik-modus holen 
50644 epx #5 ı gröer als 47 
50646 bes 350669 ; ja: fehler -> 
50648 Ida a50743,x s graphic-modus 
5as51 aTßs51 cmp #alsl ; unverändert? 
30653 beq a50730 s jas > 
50635 sta #aill ; neuen graphic-modus speichern 
530657 tax s = 0? 
s0658 bne 250672 ;s nein: -> 
SO6hd jsr aS1145 3 77-> graphic-modus abschalten 
59663 lda #40 ; spalten 
0665 ldx #25 ı zeilen 
530667 bne a5072& ; immer > 
50669 
30669 a50667 jmp a39196 3} 77-3 "illegal quantity’ 
50672 
30672 a5%672 jsr a50748 5 > graphic-speicher einrichten 
50675 lda 363286 
50678 ora #700100008 ; bitspeicher-freigabe-bit 
jels]=1=15) sta a65286 ı setzen 
3068 lda 245297 
S0486 and #411161111 ; multicolor-freigaber-bit rücksetzen 
50688 bit *a131 ;s graphic-modus 
50699 bpl 250694 s nicht multicolor: -" 
5692 ora #4amn1o00 s multicolar-freigabe-bit setzen 
30694 a50694 sta a645287 
50697 lda 455298 
59700 and #4110960@11 
30702 ora #400001008 
59704 sta 2652978 
530797 lda as330% 
59718 and #790800011 
30712 ora #h,36144 ; bit-speicherbereich einschalten 
50714 sta as53oo 
50717 Ida #40 ; spaltenzahl 
59719 ldk #25 ; zeilenzahl 
50721 bit #a131 : graphic-modus 
50723 bpl 250726 ; nicht multicolor: -> 
59725 lsr a s sonst spaltenzahl halbieren 
50726 a50726 sta *all5 ; graphic-spalten für scale 
30728 stx #al3d ; graphic-zeilen 
30730 350730 jsr 350085 3 777> scenclr-flag holen 
39733 txa 
539734 lsr a 
530735 bne a50669  gröer als 1: fehler -> 
530737 bec 250742 ı = 8: fertig -> 
59739 jmp a50533 3} 77-> scnelr 
59742 


50742 a50742  rts 


590743 356743 


50744 
30745 
50746 
50747 
50748 
59748 
50750 
39752 
39753 
59753 
50755 
30757 
50759 
530762 
59765 
59766 
39767 
39769 
59770 
530772 
39774 
530776 
530778 
50790 
39782 
56784 
59796 
59789 
Sso771 
39793 
539795 
539797 
39799 
Segel 
508053 
50805 
50908 
SOgaRB 
Ssösll 
Sagıl 
Sog14 
30316 
50818 
50920 
59821 
50823 
50825 
55827 
59329 
SO8Ti 
TOBIT 
S993I 
5937 
508397 
SOg41 
5303453 
50945 
50847 


a50748 


asbgo8 


asagli 


as 


0937 


709109000 
701100600 
410100008 
711100800 


*al1l7 
a30753 


+aüd 

#h, 16384 
asagll 
a43348 
a31397 


*+a49 


+a50 
#h,a6144 
a5ag08 
#117 
#0 

*a54 
#h,a6144 
#a2 
a51194 
*a24 
*asl 
*a23 
*+352 

#0 

#359 
#h,a6144 
aa 
asıl2E 


a34433 


343348 
*a49 
*a95 
*asd 


#h, 12288 
as5oBo8 
+a95 
*+a52 
a30837 
asaade 
+a51 
asog3a8 
*a117 
#1,12288 
*a78 

#h, 12288 
*379 
351319 


IP PESPPEEFT EEFFREFT, 


ern IE EEPFEEFT u. 


we 


A, A 


ge Ge 


® normal-modus 

32 hochauflösende graphik 

96 hochauflösende graphik mit text 
166 multicolor-graphik 
224 multicolor-graphik mit text 


graphic-speicher-flag 
=0: -> 


basic-obergrenze 


nicht unter 16384: -" 
---> garbage collect 
=---# (x,y) »= länge des stringbereichs 


+ variablenende 


> 6 k? 
ja: fehler -> 


---> strings verschieben 
neue stringbereich-untergrenze 
in string-anfangszeiger 


neue basic-obergrenze 
= 6144 


---} r-zeiger korrigieren 
---> "out of memory" 


---> garbage collect 
l,variablenende 
l,transportzeiger 
h,variablenende 


+12 k 

überlauf: fehler -> 
h,transportzeiger 

kleiner als string-untergrenze” 


nein: fehler -> 
flag für graphic-speicher setzen 


---> r-zeiger der strings korrigieren 


39950 lda #395 ; zielbereich-ende 

54852 sta #334 ; nach (a34,a35) 

50954 lda #296 

50956 sta #235 

50858 ldı #349 ; variablen-ende (= quellbereichs-ende) 
59868 stx #a36 ; nach (a36,a37) 

50862 lda *#a50 

50864 sta #337 

50866 sec 

50967 sbc #h, 324096 ;i programmanfang subtrahieren 
30869 tay ; ergibt länge des blacks 
33878 jsr 351192 5 => block nach oben schieben 
50973 elc 

50874 lda *a50 ; variablenendezeiger 

508976 adc #h, 12288 ıumi2k 

50878 sta #350 ; hinaufsetzen 

50880 lda *348 ı arrayranfangszeiger 

39882 adc #h,12288 sum 12 k 

50884 sta *a48 ı hinaufsetzen 

50885 lda #245 ; variablen-anfangszeiger 
20888 adc #h, 12288 ;s um 12 k 

50998 sta #346 ; hinaufsetzen 

50992 lda #244 ; programm-anfangszeiger 
50874 adc #h, 12288 s um 12 k 

SO876 sta *a44 ; hinaufsetzen 

508978 lda *ad6& ; data-zeiger 

SOB8 adc #h, 12288 s um 12 Kk 

s3a7a2 sta #a66 ; hinaufsetzen 

50704 a50964  jsr a34840 3 > linkadressen erzeugen 
3a9a7 jsr 234991 } -7-> variablenanfang setzen 
599718 bit *#a129 ; direktmadus? 

509712 bpl 250957 ; ja: fertig -> 

50914 ldx #h, 12288 

59916 bit *all7 

50718 bmi a50922 

309298 ldx #208 ; = -h, 12288 

59922 a50922 txa 

50923 eie 

509724 adc #360 ; programmzeiger 

50926 sta *a6ß 

59928 tya 

509297 eier 

SIO730 adc a694 ; adresse für trap und cont 
SO73I sta add4 

SO97I6 txa 

50937 elc 

5a758 adc a1270 ; adresse für trap 

S0741 sta al276 ; um 12 k erhöhen 

59744 jsr 342848 3 73 (a61,a62) := (al24,a1259) 
50947 350947 Ida *a6l 3 basic-stack-zeiger 

56949 cmp #1,21968 

59951 bne 250958 

50953 lda #362 

59953 cmp #h,a1968 

539957 bne a50966 ; basic-stack nicht leer: -> 


30957 a50959  rts 
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50969 
59962 
59954 
50966 
59968 
59770 
50973 
58975 
59978 
50988 
59982 
59982 
509894 
59987 
529899 
50998 
599772 
509774 
S0979& 
59998 
51060 
510998 
51088 
s1aao 
51092 
51094 
51005 
51005 
51997 
519897 
sıo1l 
51013 
Ss1o1ld 
51017 
51922 
51024 
51027 
51029 
51932 
51934 
51937 
519539 
51041 
51043 
51044 
51046 
51949 
51949 
51051 
S10I3 
51953 
51957 
510957 
Silas1l 
51063 
51945 
51968 
51078 
sıa71 


339968 


a39982 


256989 


as1096 


331805 


as1934 


a51849 


as1l985 


idy 
Ida 
cap 
bne 


#0 
(adl),y 
#129 
a350982 
#2 
a51117 
#16 
ası1117 
#19 
a50989 


#4 
as1117 
#5 


*a6l 
+asl 
a50947 
+ab2 
350947 


*all7 
331905 


#0 
*a1l17 
*as6 
351949 
a43348 
a51307 
alizı 
*a34 
al332 
*#a35 


as1184 


*#as4,y 
*aS1l,Xx 


as1934 
as123 


#0 

*+a117 
*+a34 
*+as6 

#h, 4095 
*a35 

#h, 16384 
*+a37 
alzıl 
{a34),y 


a51965 


BEE a A a 


u. 


Pr 


EPEICH 


u an 


EPPESRRBEP FT 


korrektur des basic-stacks 


’far’-token? 

nein: -} 

h,variablenzeiger 

---> adresse korrigieren 
h,startadresse der schleife 

---> adresse korrigieren 

länge des for-datensatzes im stack 


h,rücksprungadresse 
---> adresse korrigieren 
länge des gosub-datensatzes im stack 


stack-zeiger auf nächsten 
eintrag setzen 


und weitermachen -> 


ERAUFTEILUNG NORMAL 


speicheraufteilung bereits normal? 
neins -} 


speicher-flag rücksetzen 
basic-obergrenze 

nicht unter 32768: -> 

---> garbage collect 

---> {x,y) »= länge des stringbereichs 
mentop 

nach (334,235) 


---} programm und variablen verschieben 


memtop 

=: basic-obergrenze-zeiger 
untergrenze des verschobenen Blocks 
=: stringbereich-anfang 


---} r-zeiger korrigieren 


speicher-flag rücksetzen 
l,zielzeiger 
l,quellzeiger 


h,zielzeiger 
h,quellzeiger 


---: 1da (a56),y 
programm und variablen herunterkopieren 


51888 
51990 
51692 
51994 
51095 
519978 
51100 
Ss1102 
51104 
S1106 
sı1o8 
51118 
51112 
51114 
51117 
51117 
51119 
51121 
51123 
51124 
51126 
51128 
51129 
51129 
51130 
31132 
51134 
51135 
51135 
51125 
S1135 
51137 
51139 
51149 
51148 
S1142 
51145 
51145 
S1145 
511459 
51148 
51150 
51153 
S1156 
51159 
silel 
51154 
51166 
51168 
sı171 
51174 
51176 
31179 
siıel 
S11893 


as1117 


aS1129 


as1135 


a51148 


aS1145 


as1065 
*+a5o 


#h, 12288 
#350 
*a44 

#h, 12288 
*a44 
*a46 

#h, 12288 
*a46 
*a48 

#h, 12288 
*a48 
+as6 

#h, 12288 
tab 
356994 


(a6l),y 
*a117 
a51129 


#h, 12288 
tabl),y 


#h, 12288 
(a61),v 


*al17 
ası140 


265286 
#711011111 
365286 
365297 
#711101111 
365287 
265300 
#700000111 
#h, 32048 
265360 
a65298 
#700000100 
a65298 


ı #5 


*alsi 


.. 


es 


r 


=. 


variablenende erreicht? 


neins -> 
variablen-endezeiger 


um 12 k erniedrigen 


programm-anfangszeiger 
um {2 k erniedrigen 


variablen-anfangszeiger 
um 12 k erniedrigen 


array-anfangszeiger 
um 12 k erniedrigen 


data-zeiger 
um 12 k erniedrigen 


---" linkadressen, basic stack usw. 
h,adresse aus basic-stack 
normale speicheraufteilung”? 


nein: -= 


adresse um 12 k erniedrigen 


adresse um 12 k erhöhen 


GRAFHIEC FRÜFEN 
graphik-speicher eingerichtet? 
nein: -> 

’"no graphics area’ 

---; fehlerausgang 

GRAFHIC ARSCHALTEN 


bitspeicher-freigabebit löschen 


multicolor-freigabebit löschen 


normalen bildschirmspeicherbereich 
einschalten 


graphic-modus 


SPEITEHERAUFTEILUNG FER BERFHIE 


51198 
51200 
51292 
51204 
51206 
51208 
s1210 
51212 
51214 
51216 
51218 
51228 
51222 
51224 
51226 
31228 
51231 
31288 
S1I2Ih 
51236 
51237 
S31237 
31239 
sız41 
S1243 
51245 
=1245 
51249 
31259 
51252 
51254 
s1256 
31237 
1259 
S1261 
S1263 
51265 
51267 
51269 
51272 
51275 
Ss127& 
51278 
12797 
S1282 
51284 
3512835 
51287 
312897 
51291 


31293 


as1204 


as122 


as1236 


as1237 


as1245 


as51l267 
as1267 


*a53 
*al6 
*a56 
*a537 


#253 
*a78 


*a78 
as1212 
*a79 
ası1l236 
*as4 
a51218 
*a3I 
*as4 
+a36 
as1l226& 
*a37 
*as6 
al2ıl 
(a34),y 
as1204 


#a33 
*a56 
*as4 
*a33 


*asıl 
#334 
*+a32 


 #a35 


as1236 


+a54 
#2 
*+as4 
as51267 
+a33 
#1 
al2o0 
as6,Yy 


a31269 


alziil 
*a128 
*a34 


*a128 
*a24 
as1l295 
*a33 


’ 
“ 
’ 


basic-obergrenze 
nach (a36,a37) als quellzeiger 


verschiebelänge 


;ı negieren 


und nach (a78,a79) 


verschiebelänge ®: fertig -> 


---> Ida (a36),y: zchn aus quellbereich 
in zielbereich kopieren 


basic-obergrenze 


nach (334,235) 


stringbereich-untergrenze 


» erreicht: fertig -> 


EPPEEFPEEFT) 


(a34,a35) auf r-zeiger setzen 


---> Ida (334),y: r-zeiger 
nach a36,a37 


---> Ida (alb),y 
stringlänge aus deskriptor 
r-zeiger-adresse 


- stringlänge 
= string-anfangsadresse 


31295 a51295 Idy #2 


51297 a51297 1da a34-1,y string-anfangsadresse 


’ 
51300 sta (a36),y s in deskriptor bringen 
51302 dey 
51303 bne a51297 
51305 beq a51245 
51307 
31307 Jam {X,Y2 s= LÄNGE DES STRINGBEREICHS 
51307 
51307 aS1307 sec 
51308 lda *a55 } l,basic-obergrenze 
Ss1318 sbc *#asl ; - l,stringbereich-anfang 
51312 tax ; = l,länge des stringbereichs 
51313 lda *a56 ; h,basic-obergrenze 
51315 sbc *a52 ; - h,stringbereich-anfang 
51317 tay ;ı = h,länge des stringbereichs 
51318 rts 
51319 
hafı BEN UA DE = nn En Dun nn R-ZEIGER KORRIGIEREN 
51319 
51319 a51319 Ida *a55 ; basic-obergrenze 
51321 sta *a34 ; nach (a34,a35) 
51323 lda *a56 
51325 sta #a35 
51327 a51327 sec 
51328 lda *aS1 ; string-untergrenze 
51330 sbc *a34 ; - (334,239) 
51332 lda *#a52 
51334 sbc *a35 
S1336 bes a51397 ı = 8: fertig -> 
51338 sec 
51339 lda *a34 ; a34,a35 auf r-zeiger setzen 
51341 sbc #2 
51343 sta *%a34 
51345 bes a51349 
51347 dec #*a35 
51349 a51349 clc 
51350 ldy #6 
51352 a51352 jsr al296 i -7-> Ida (a34),y: r-zeiger 
51355 sta alö,y ı nach (a36,a37) 
51358 adc a78,y ı um (a78,a79) erhöhen 
S1361 sta (a34),y ; und wieder abspeichern 
S1363 iny 
51364 cpy #1 ; 7??? damit wird nur das 1-byte 
51366 bne a51352 ı ??? erfat!!! 
51368 dey 
51369 jsr al2il 3 ===> Ida (aS6),y: länge des strings 
51372 sta #3128 
51374 lda *a54 ; adresse des deskriptors 
51376 sec 
51377 sbc *#a128 ; - länge des strings 
51379 sta #a34 s = anfangsadresse des strings 
51381 bes a51327 
51383 dec *a35 
513895 bec a51327 ’ immer > 
51387 


51387 a51387 rts 


Seite 1656 513598 


BIREECTORY 


51388 a5S1388 jsr a51999 


---}> kommands-analyse 


’ 
sı1z91 and #238 ı syntax ok? 
31393 bne a51518 ı nein: fehler -> 
51395 ldy #9 
51397 isr a51775 3 70: kommando erzeugen 
51400 Ida #8 ; la 
51482 ldx as3l ı fa 
51405 ldy #7& ı 5a 
51497 jsr 265466 3 7: setlfs 
51410 sec 
s1411 jisr 363472 3 ==> open; kommando senden 
51414 bec a51425 y oaks => 
51416 pha 
51417 jsr a51309 ı ==> clrch, close 
51420 pla 
51421 tax 
51422 jmp a34435 } => fehlerausgang 
51425 
51425 a51425 1dx #0 
51427 isr a65478 » 77? chkin 
51436 ldy #3 i programm- und zeilenlink überlesen 
531432 aSl432 sty a748 ; zeichenzähler 
51435 a51435 ‚jsr 365487 3 => basin 
51438 sta a749 ; 1. zeichen merken 
51441 jsr a653463 3} 00: readst: status gesetzt? 
51444 bne 351509 ; jar abbruch -> 
51446 jsr a63487 3 => basin 
51449 sta a750 ; 2. zeichen merken 
51452 jsr 265463 3 > readst 
51455 bne a51509 sı clrch, close 
51457 dec a743 ; schon & zeichen gelesen? 
51460 bne a51435 ı nein: weiterlesen -" 
51462 ld 3749 ; l,blockzahl 
51465 lda a750 3 Dre 
51468 jsr a420797 37772 (a,x) ausgeben 
51471 lda #° 
51473 jsr a65490 H > bsout 
51476 aS1476 jsr a65487 3 07-> basin 
51479 pha 
51480 ist a65463 3 7-> readst: status gesetzt”? 
51483 bne 351508 ı jas abbruch -# 
51495 pla ; gelesenes zeichen 
51486 beq a51494 ; zeilenende: -" 
51488 jsr a653490 3 ---> bsout 
51491 jnp aS1476 5 =? weiterlesen 
51494 
51494 a51494 Ida #13 ı cr-kode 
51496 jsr a65496 3 77? bsoaut 
51499 jsr a55395 3 > stoptaste gedrückt? 
51502 beq a51589 3 ja: abbruch -> 
51504 ldy #2 ; zeilenlink überlesen 
31506 bne a51432 s immer —> 
51568 
51508 a51l508 pla 
51589 a515999 jsr a65494 a er ElFreh 
51512 lda #8 
51514 clc 
51515 imp a653475 5 ---> close 
51518 


51518 aS1518 jmp 239049 3 => "syntax error” 


a a51560 


#791190118 
asz2unl 
a52495 


a51537 1da 
jsr 
jsr 
lda 
sta 


sta 


#4111008119 
aszdn1 
a32495 


as1773 


as51977 
a352399 
#400010001 
#780010001 
as1373 
as1372 a39049 
as1575 asssıl 
as2323 


a515965 


*+a129 
as1s06 
#0 
#a122 
all72 
#’2 
a31607 
as1l6B6 


331607 


as1612 a351977 
a32399 
a32523 
as160& 
#15 

a31775 
as2431 
*al27 
as1&aos 
#13 

a65470 
#5 


nn 


IP DEEPFEEFT 


EP PEPPER? EERRBE?T 


PT EEFTEORPEEFTERRRBEPT, 


EPPIR. [ BPPRBEFT EeRRuEr PR 


OPER PR" Gere 


filename, fa, lw, replace 

---> kommando-analyse 

---> fehler wenn kein filename 
offset in tabelle 

---> kommando erzeugen 

---} save-routine 


DLOAD 
filename, fa, 1iw 
---> kommando-analyse 


---> fehler wenn kein filename 


sekundäradresse 


; verify-flag 


offset in tabelle 
---}> kommando erzeugen 
---> load-routine 


HEADER 


> kommando-analyse 
N 


> syntax-prüfung 
diskname und laufwerknummer 


; beide angegeben? 


jas > 
---} "syntax error” 


+ la] 

---} ’are you sure?” 
nein: 
offset in tabelle 


---> kommando erzeugen und senden 


---> disk status übernehmen 
direktmodus? 
nein: -> 


27 


grö*er als 
jar formatierungsfehler -> 


"bad disk’ 
---} fehlerausgang 


SERATCH 


> kommando-analyse 
syntax-prüfung 

‚ "are you sure?” 
nein: 
offset in tabelle 

---} kommando erzeugen 

---> disk status übernehmen 
direktmodus? 

nein: = 

er-kode 

---> bsout 


» Ida (a),y: erste stelle von ds 


31668 
31660 
516653 
51665 
51667 
51678 
531672 
51674 
51674 
51674 
51674 
51677 
31679 
s1681 
51683 
51685 
31687 
51699 
si1orl 

31694 
51696 
51698 
51700 
51700 
s1700 
51700 
51782 
51705 
51708 
1710 
51712 
1712 
51712 
51712 
51714 
51717 
51719 
51721 

51723 
31726 
31726 
51729 
51731 

531734 
51754 

s1734 
51734 
51735 
51738 
51748 
51742 


a51642 


a51655 
a63498 


a51642 
asl85T 


#13 
a65490 


asıldä0 a51999 
#41110@111 
a51372 
abssıl 

#20 
as1775 


a51574 a31999 
#700 110000 
#400110900 
351689 
*al3o 
#741100@8111 
a51696 
*al30 
as2416 
*a130 

#23 

as1775 


a51689 


a31696 


a31700 #411100109 
a52001 
as2422 
#30 
a31775 


as1712 #41100@111 
as2ae1 
#400118900 
#700110000 
a51726 
2393049 


assstl 
#37 
a51775 


a51734 
adas 

x #1, 3636 
#h,a636 
a634697 


PPPEEFTERRRBEFT, 


PPPESPFEEFT EPPEEFFREFT) EPPESPREEFFERPRBEFT . [PTESPRELFPERPRBEPPERBRBEPE, 


EPPESPFERPFERRPEEFT, 


adresse von ds$ 
---> l1da (a),y: 
endezeichen: -> 
---}> bsout 


immer 


cr-kode 
---} bsaut 


COLLECT 


---> kommando-analyse 

nur gerätenummer und laufwerk? 
nein: fehler -> 

—- elall 

offset in tabelle 

kommando erzeugen und senden -}> 


BOY 


---> kommando-analyse 
genau zwei laufwerknummern 
angegeben? 

nein: -> 

syntax-flag 

filenamen angegeben“ 

nein: -> 

---> syntax-prüfung 

offset in tabelle 

kommando erzeugen und senden -} 


RENAME 


2 filenamen, fa, Iw 
---} kommando-analyse 
> auf 2 filenamen prüfen 


ı offset in tabelle 


kommando erzeugen und senden -" 
BACKUP 


fa, 2 laufwerke 

---> kommando-analyse 
zZ laufwerke angegeben? 
jas > 

---} "syntax error’ 
==} clall 
offset in tabelle 
kommando erzeugen und senden 


KOMMANDO SENDEN 
endekode in tabelle 

länge des filenamens 
l,adresse des filenamens 
Asus 

> setnam 


zeichen aus meldung 


a51774 


a51775 


351783 


a31928 
as1823 


as1926 


as1832 


a51938 
a51841 


pla 
beq 
ld» 
sec 
jsr 
lda 
sec 
jmp 


rts 


a632 
a65466 


a51774 
aba 


a653472 
as3ß 


a65475 


a52567 
#0 

a605 
a51957,y 
a51734 
#128 
351734 


51826 
a51832 
51838 
51845 
a51853 
a51863 
51877 


331887 


*al30 
#16 
a51923 
a623 
asıB4l 


a627 
#0 
a51820 


FR 
*a130 
351820 
asıB2S 


PT EEPPEEFT ErPRBE?T BERRBEPT, 


PPPRR | 


PRPEEFF, 


a 


la: log adresse 

fa: geräteadresse 
sa: sekundäradresse 
---} setlfs 
endekode 

= &: fertig -> 
länge des kommandos 


---> open, kommando senden 
la 


---> close 


KOMMANDO ERZEUGEN 
---> disk-status löschen’ 

zähler für kommandolänge 

endekode @: -} 


endekode 128: -} 
kode aus tabelle 


1: laufwerknummer 1. falls vorhanden 
2: laufwerknummer 1 

3: laufwerknummer 2 

4: replace-kode 

5: filenamen 1, falls vorhanden 
6: filenamen 1 

7: filenamen 2, falls vorhanden 
8: filenamen 2 

9: id, falls vorhanden 

---> in kommandostring einbauen 
immer -" 

syntax-flag 

laufwerknummer angegeben? 


nein: -> 
laufwerknummer 1 


y 


ascii-kode erzeugen 
immer -> 


zeichen für "replace" 
syntax-flag 
replace gefordert: -> 


% 


immer -> 


51950 
51953 
51956 
31957 
31957 
31957 
51957 
51961 
31966 
51972 
51977 
51998 
31987 
519974 


as1853 


as1863 


331977 


a31887 


as1998 


as19706& 


as51922 


a51947 


a31997 


lda 
beq 
lda 
jsr 
tya 
pha 
lda 
ldy 
ldx 


ab22 ; länge des filenamens 1 
a31823 ; kein filename: -> 
#’: 
a51947 } 7773 in kommandostring einbauen 
ab24 s l,filenamensadresse 1 
ab25 3 Hyans 
a622 ; länge des filenamens 1 
a3s1898 3 ==> filenamen in kommando einbauen 
ab2&6 ; länge des filenamens 2 
as1823 ; kein filename: -} 
#3 
as1947 3 77-> in kommandostring einbauen 
a628 sı l,adresse des filenamens 2 
ab29 3 Bye 

ı a626 ; länge des filenamens 2 
*a34 ; l,adresse 
*a35 5 Hysma 

‘ tal28 ; länge 
#0 
al2ad 5 -—-> lda (a34),y: zeichen aus namen 
as1947 3 -—--> in kommandostring einbauen 
*al28 ; ende des namens erreicht? 
as1906 s nein: -" 
ası1823 se |— 
abs ; id byte 1 
as1823 s nicht vorhanden: -> 
#’, 
as19747 5 ---: in kommandostring einbauen 
ab3E s id byte 1 
as1947 3 > in kommandastring einbauen 
a634 ı id byte 2 
as1947 3 ---> in kommandostring einbauen 
as1823 ce 

{ a605 ; zeiger in kommandostring 
ab3s,N ; zeichen in puffer 
Eteiche i zeiger erhöhen 

|—, KOMMANDOTARELLE 

’$7 758 ; directory 
42°:7658 H dsave, dload, dopen 
an ar BL a > ei ’ header 
ee 2. 5228 3 scratch 
y” 2 128 5 collect 
ud A Da De u | ; copy 
Er ter Ai ;}  rename 
’d’ 3 ’=’ 2128 3 backup 


52034 
52035 
532038 
52040 
52041 
52041 
52043 
32945 
52047 
32049 
52851 
32053 
52055 
32057 
52057 
52061 
52063 
52065 
32068 
52068 
32071 


3 
b 
B 
’ 
’ 
3 
’ 
B 
a51999 


a5z001 


a32008 


a32034 


as2041 


as2065 


a352068 


Ida 
pha 
lda 
sta 
ldx 
sta 
dex 
bne 
ldx 
st» 
ldx 
stx 
ldx 
st» 
jsr 
bne 
pla 
jsr 
lda 
rts 


cmp 
beq 
cmp 
beq 
cmp 
beq 
cmp 
beq 
emp 
beq 
cmp 
beq 
jmp 


jsr 
jmp 


bedeutung der kodes: 


syntax-flag ail3® 


#0 


#0 
*a1l30 
#30 
abab,x 


a52008 
#8 
absl 
#111 
a632 
#90 
a638 
al145 
as2041 


a52394 
*al3ßd 


#’d 
a52074 
#145 
a52127 
Fu 
a52068 
#’i 
a520997 
yrı 
a52133 
#’ 
ag2133 
a38049 


a52s12 
a32173 


oDyoN neun 


pr 
b3 


. 


PPREEFTI 


laufwerknummer 1 optional 
laufwerknummer 1 
laufwerknummer 2 

replace optional 

filename 1 optional 
filename 1 

filename 2 optional 
filename 2 

id optional 

kommando an floppy senden 
DR-KOMMANDOANALYSE 
filename 1 

filename 2 

la (log adresse) 

fa (geräteadresse) 
laufwerk 1 

laufwerk 2 


replace 


syntax-maske 
disk basic syntax flag 


disk basic arbeitsbereich löschen 


fa: geräteadresse 

sa: sekundäradresse 
la: log adresse 

7? chrgot 

kein trennzeichen: -> 
syntax-maske 

---> syntax prüfen 
syntax-flag 

drive: laufwerknummer 
"on’-token 

unit: gerätenummer 

id: identifikationsmerkmal 
text folgt: -> 

variable folgt: -% 


---> "syntax error” 


---> gerätenummer auswerten 
---} syntax-flag setzen 


52074 
52976 
52079 
52082 
32084 
52086 
32089 
32092 
52094 
52096 
52096 
52099 
52099 
52102 
52104 
52187 
52110 
52113 
52116 
52118 
52121 
52124 
52127 
52127 
52138 
92133 
52133 
52135 
52138 
52141 
52144 
52146 
52149 
52151 
52153 
52156 
32158 
32168 
532163 
52165 
52166 
52169 
52171 
32173 
32175 
52177 
52180 
52182 
52185 
32185 
52187 
52189 
32192 
52195 
52195 
52197 
52199 
52201 


a32074 


a32096 


a352099 


as2168 


a32173 


a5s2177 


a52185 


as2195 


a32394 


a32297 


a635 
a352965 
a1139 
a633 
al139 
a634 
#255 
a635 
al139 
a532177 


a32305 
a52173 


#1 
a52329 
a622 
ab25 
#1,3606 
3624 
#as6 
#h,2606 


a32034 


#7; 
a52195 
al139 
a52941 


#145 
as2127 
#164 
a52294 


PPRBEFT PPEE?  ERRRBLFE 


EPPEPPREEFT: 


Pa 


PPPEES ZEPPEe 7 PT 


PPTEERREEFT 


;ı kein trennzeichen: -> 


laufwerk-bit 1 

---> fehler, wenn schon gesetzt 
---> frmevl, getbyt 

grö*er als 1? 

ja: fehler -} 

laufwerk 1 

laufwerk 2 

laufwerk-bit 1 

setzen -} 


---> "illegal quantity’ 


id-flag gesetzt? 


s ja: fehler -> 


---> chrget 
id byte 1 
---> chrget 
id byte 2 


id-flag setzen 
---> chrget 
> 


=--} ’u” auswerten 
---> syntax-flag setzen 


filename-bit 1 
---} filenamen übernehmen 
länge des filenamens 


adresse des filenamens im puffer 
l,adresse 


Bene 


---: Ida (a34),y: filenamen 
in puffer kopieren 


name zu ende? 

nein: -> 
filename-bit 1 

in syntax-flag odern 


---> chrgot 


---> abschlu” 


---> chrget 
---} analyse fortsetzen 


’on’-token 


’to’-token? 
nein: fehler -> 


32203 a52203 jsr all39 5 =7-> chrget 

32206 cmp #’d ; drive: laufwerknummer 
52208 beq a52226 

S2218 cmp #145 ; "’on’-token 

32212 beq a52245 

52214 cmp #’u ;s unit: gerätenummer 
52216 beq 352251 

52218 emp #°" s text folgt: -> 

S2220 beq a32237 

32222 cmp #° ( ; variable folgt: -> 
52224 beq a52257 

52226 a52226 Ida #32 ; laufwerk-bit 2 

52228 jsr a52394 } 77-> fehler, wenn schon gesetzt 
52231 jsr a32375 3 -7-> frmevl, getbyt 
32234 epx #2 ı grö*er als 1? 

32236 bes 252297 ; ja: fehler -> 

52238 stx a627 

s2241 Ida #32 ; laufwerk-bit 2 

52243 bne a52273 sı setzen -} 

52245 

52245 a52245 jsr 352305 5 777> "u” übernehmen 
52248 jmp a52273 3} ==> syntax-flag setzen 
52251 

52251 aS2251 jsr a52312 5 -7-> gerätenummer übernehmen 
32254 jmp as2273 3 707} syntax-=flag setzen 
52257 

52257 a52257 1Ida #2 ı filename-bit 2 

52259 jsr a32329 } 77-> filenamen übernehmen 
32262 sta a626 ; länge des namens 
52265 stx a62 ; l,adresse des namens 
32268 sty a629 5 Hynss 

32271 Ida #2 ;i filename-bit 2 

532273 a52273 ora #al30 ; in syntax-flag odern 
32275 sta #al50 

32277 jsr al145 3 > chrgot 

32280 beq aS21B2 ; trennzeichen: -> 
32282 emp #’, 

52284 beq a52203 

32286 cmp #145 i "on’-token 

52288 beq a52245 

52290 camp #’u ; unit: gerätenummer 
32292 beq a52251 

52294 292294 1dx #11 ı "syntax" 

52296 „by 44 

52297 a532297 1dx #14 ; "illegal quantity” 
32299 ‚by 44 

32300 a52300  Idı #23 ; "string too long” 
32302 jmp a34435 3 => fehlerausgang 
52305 

52305 352305 jisr al139 3 =-> chrget 

52308 cmp #’u s unit? 

532318 bne a52294 ; nein: fehler -> 

s23l2 ag2zl2 jsr a52375 3 > frmevl, getbyt 
52315 epx #32 ı grö*er als 31? 

532317 bes 252297 i ja: fehler -> 

532319 epx #3 ; kleiner als 5? 

3232 bee a52297 s jas fehler -> 

32323 stx as31 

32326 lda #3 


52328 rts 


52329 
32332 
32335 
532336 
52338 
32340 
52343 
32345 
5325347 
52349 
52352 
32354 
52356 
532358 
52357 
S2361 
32363 
32365 
32366 
32368 
32370 
32372 
32374 
32375 
32375 
52378 
32390 
52382 
2385 
32388 
S2391 
32371 
532394 
32394 
32395 
32378 
32399 
32399 
S2401 
32493 
32405 
32495 
52407 
524097 
52411 
52413 
52415 
32416 
52416 
52418 
32420 
52422 
2424 
32426 
52428 
52430 


832329 


ag2369 


a32403 


a32405 


a52374 
a40088 


a52297 


352365 
#128 
a32394 
*al3d 
#128 
*a1l30 


+a54 
as236s5 
*a35 


#17 
a32300 


ı #a54 


*+a39 


al139 

332294 
a32371 
as8950 
a40324 
a38027 


a40324 


*a130 
a32274 


#411100110 
a3S2405 
a32294 


#a130 


3524073 
*a1l30 


#7411000100 
as2403 
*a1l30 

#3 

#3 

ag2403 
*al3d 


[UT EERRBEFT EERPEEeT 


au en 


PPPEEPREEPT| 


---> fehler, wenn schon gesetzt 
---} frmevl, chkstr, frestr 
stringlänge 

= 6: fehler -> 


---> Ida (a34),y 

’replace’? 

nein: -> 

replace-bit 

---> fehler, wenn schon gesetzt 
replace-bit setzen 


stringlänge erniedrigen 
string-anfangsadresse erhöhen 


stringlänge 

grö*er als 16? 

ja: fehler -> 
l,stringanfangsadresse 
Hyane 


---> chrget 
trennzeichen: fehler -> 
---} prüfen ob ’(" folgt 
---> frmevl, getbyt 

---> prüfen ob ’)” folgt 
---> frmevl, getbyt 
syntax flag 


syntax error > 


2. filename, 2. laufwerk, la? 
nein: -> 
fehler -> 


filename angegeben? 


nein: fehler -> 


la oder replace? 
ja: fehler -> 


genau 2 filenamen angegeben? 


nein: fehler -= 
syntax-flaqg 


32498 
52508 
52502 
52505 
32307 
52508 
52511 
gastl 
52512 
52315 
52518 
32519 
32I20 
32323 
32323 
52523 
32323 
32325 
2327 


3252 


32530- 


52544 
32547 
532550 
32551 
532393 
32555 
32358 


as248 


a3249 


& 


8 


*a1l21 
a43279 


x *a122 


*a123 
#40 

#13 
(al22),y 


x a6s1 


#0 
a63469 
a65472 
#6 
365478 
aszsil 
#255 


265487 
#13 
a532498 
(a122D) ,y 
332486 


#0 
(a122),y 
3653484 
#0 


a32498 
a32567 


a65337 
’are you sure?’ & 
365484 
a65487 


#13 

a3236® 
3653487 
as25s1 


[PPESRREEFF) 


[PPEPRFEEPTELRRBERT 


PPPESPFSEFT) 


IT EEPRBErT 


PT EEPFOEFTEIPRREPPRROH 


länge von ds$ 
ds$ gültig: -> 


---> platz für string reservieren 
l,adresse von ds$ 
Nyaee 


wozu??? geht in r-zeiger! 
fa: geräteadresse 

nicht null: -> 

ersatzwert 8 

für geräteadresse 

la: logische adresse 

sa: sekundäradresse kanal 15 
---> setlfs 

filenamen löschen 

---} setnam 

---> open 


=} chkin 


x 


fehler: -> 


---> basin 

er-code? 

ja: fertig -> 

eingelesenes zeichen in ds$ kopieren 
immer > 


endemarke 
schlie*t ds$ ab 
==-} circeh 


---> close kanal 13 


fehlerkode 
---}> ds$ abschlie*en 
---} disk-status löschen 


---} fehlerausgang 
ARE YOU SURE? 


direktmadus? 

nein: keine meldung -> 

---} meldung ausgeben 

===} clrch 

---} basin 

1. eingegebenes zeichen merken 
cer-kode? 

jas =? 

---> basin 

immer = 


32569 a32560 pla ; 1. eingegebenes zeichen 
S236o1l emp #’y 

52363 rts 

532564 

52364 a52564 Ida #0 ;s simuliert ’y’ 

32366 rts 

32367 

923% ee CLEAR DISK STATUS 
32567 

32567 a525367 tya 

52368 pha 

32569 Ida *#alzi ; länge von ds$ 

s2571 beq a32583 ı=9 -> 

32373 ldy #46 s string ds$ ungültig machen 
52575 tya 

52376 sta (al22),y 

325378 iny 

32579 lda #255 

32581 sta (al22),y 


32583 a52583 Ida #0 


32585 sta #*al21 ; länge von ds$ 

32397 pla 

52588 tay 

52589 rts 

52598 

92398 I ------------- RESTE VON KEY 
52590 

32590 a52590 „by ”,„® yek’ ;s "key @,° rückwärts 
52596 

52596 a5259%6 tax 

32597 tya 

532598 pha 

52599 lda #8 

52661 jsr a42079 ı 777} (a,x) ausgeben 
52604 pla 

32605 tay 

S2606 rts 

52697 

N RUCKSACK AUS LOOF 
32667 

52607 a52667 sta #258 ; h,zeilennummer 

2659 dey 

32618 tax ; = 2557? 

2611 ins 

52612 bne a5261& ; nein: -" 

52614 stx *a129 i direktmodus setzen 
52616 a52616 rts 

52617 

a AUTORENLISTE 
32617 

52617 a52617 .by 216 27 20 12 7 125 1 215 3 t.ryan 

532625 ‚by 216 17 7 16 29 123 23 ; b.herd 

532632 ‚by 216 7 16 5 26 26 22 123 31 5 j.cooper 

52641 .by 216 27 16 2 26 23 1235 19 71 216 ; f.bowen 
52651 


F 
52651 aS2651 1dy #33 


52653 a92653 Ida a52617,y ; verschlüsselte namen aus tabelle 


’ 
32656 eor #74B1216161 ; entschlüsseln 
52658 ijisr 365498 5 ---> bsout 
S266l dey 
52662 bpl 352653 


52665 3------------- 1 

32665 

52665 ‚by ® 

52666 

52666 ; der bereich 52666...52735 enthält den Kode 255 

52666 

IH LT NV Bas 5 nn a nl ln INTERRUPT 

52666 

52736 a52736 tsx 

52737 lda a256+4,x 

52749 and #16 ; hardware-interrupt? 

52742 bne a52747 s nein: -> 

52744 jmnp (a788) 3} ==> (a52750) 

532747 

32747 a52747 jmp (3790) I > (a62540) monitor break entry 
52759 

32750 a52750 Ida a65289 ; interrupt-flags 

32753 and #2 ı raster-interrupt? 

52755 beq a52760 s neini -> 

32757 jsr a52832 3 ---> graphic bearbeiten 

52760 a5276% bit a2008 ı rs=232 in betrieb? 

52763 bpl a52779 s nein: -> 

52765 lda 364769 ; rs-232-status 

52768 sta a2064 

52771 bpl a52779 ; kein rs-232-interrupt: -> 

32773 jsr a6aa53 3 77: datenbyte empfangen 

52776 jsr a59995 1a? 

52779 a52779 jsr a58348 3 -7-> timer setzen im kassettenbetrieb 
52782 lda 3645289 

52785 and #2 

52787 beq a52829 

52789 sta 365289 ; interrupt rücksetzen 

52792 bit a65271 

32795 lda #204 ; nächster raster-interrupt 

52797 bvc a52826 ; interrupt war bei raster 161 
527997 jmp (2796) ; standard interrupt vektor (a52862) 
52892 

529802 a52802 jsr a53183 3 ==> recorder bedienen, uhr takten 
52885 jsr a52941 i ==> sound bearbeiten 

52808 lda *a251 ; aktuellen modul 

52819 pha ; merken 

s2811 lda #0 ; rom 

52813 sta #a251 ı einschalten 

52815 php 

32816 cli 

2817 jsr a56a8l } ==> scnkey: tastaturabfrage 
52820 plp 

52821 pla 

52822 sta #a251 aktuellen modul wiederherstellen 
52824 Ida #161 nächster raster-interrupt 


52826 a52826 sta a65291 
52827 a52829 jmp a64702 


raster-interrupt vorbereiten 
---> modul einschalten, rti 


52832 

52832 352832 Ida 365308 ; h,raster 

52835 and #1 i gesetzt? 

52937 bne a52896 s jas raster nicht sichtbar -> 
52837 lda a653#9 ı l,raster 

52842 cmp #165 s noch im graphik-bereich? 
52844 bes 252892 s nein: -7 

52945 bit *al31 s graphic mit text? 

52848 bvce 352932 s nein: fertig -> 


52943 
52946 
32749 
32951 
52954 
52956 
32959 
52961 
32964 
32967 
352978 
52771 
32973 
52974 
32974 


a52874 


a52892 


a52896 


a52719 


a352732 


a529741 
ag2743 


a32970 


a52974 


lda 
sta 
lda 
and 
tay 
lda 
and 
tax 
lda 
ora 
pha 
lda 
emp 
bec 
pla 
sta 
sty 
stx 
rts 


camp 
bec 


“by 


#+h,a2048 ’ 
a65368 
ab5286 
#/11@11111 3 


a65287 
#7,11101111 ; 


a65298 
a2042 ; 


a65309 ; 
#163 F 
a32874 3 


a65298 3 
365286 
a632897 


#204 ; 
a52932 3 
*al3l ; 
a32932 H 
a52919 ; 
a65287 

#7400010900 3 
a65287 3 
a65286 

#700109000 ; 
a65286 ’ 
a65278 
#411111011 
a65278 
a2043 
au5598 


234 234 234 234 234 23 


#1 

al276,x 5 
al278,x 

a52978 ; 
al276,x 
a52979 
al278,x 
a52970 
a52974,x 
a65297 b 
a653297 


we 


as2943 


411181111 410811111 


zeichen-speicher einschalten 
bitspeicher-freigabebit rücksetzen 
byte merken 


multicolor-freigabebit rücksetzen 
byte merken 


= 4 (vom reset) 


; l,raster 


noch im graphikbereich”? 


; jas warten -" 


graphic-modus abschalten 


l,raster noch im textbereich? 


s ja: fertig -> 


graphic-modus 


s ausgeschaltet: -> 


kein multicolor: -> 


multicolor-freigabebit 
setzen 


bitspeicher-freigabebit 
setzen 


= h,a6144 (vom reset) 
bitspeicher einschalten 


4 234 254 


SOUND BEARBEITEN 


zähler (x) abgelaufen? 


ja —> 
zähler (x) inkrementieren 


noch nicht am ende: -> 


sound (x) abschalten 


Ba UHR TAKT 

52976 

52976 a52976 inc #a165 ; uhrzeit inkrementieren 
329778 bne a52986 

529780 inc *a164 

529782 bne a529B6 

329784 inc *al63 

32986 a52986 sec ı 24 h erreicht? 

529897 lda *a165 

32989 sbc #1 

Sal lda *a164 

32993 sbc #26 

52995 lda *a163 

32997 sbc #79 

32999 bec 3593009 s nein: -" 

S3001 ldx #06 ; uhr auf & zurücksetzen 
530053 stx *a163 

53005 stx *a164 

53007 stx *a165 

53009 353009 Ida #127 

Ss3o11 jsr a56176 } -0-> tastatur-dekoder abfragen 
30614 sta #238 ; ergebnis merken 

S301l6 lda #127 

S3018 jsr 336176 3 -7-> tastatur-dekoder abfragen 
53021 cmp *a238 ; gleiches ergebnis”? 

33023 bne 253009 ; nein: abfrage wiederholen -> 
53025 ora #12 

533027 sta #a1l45 ; stkey: 127 = stoptaste gedrückt 
3029 rts H 259 = ... nicht gedrückt 
53930 

Ba UHR LESEN 

33030 

53030 a53030 sei 

S3oz1 lda #3165 

3033 ld» #a164 

33033 ldy *a163 

53037 

a UHR STELLEN 
53037 

53037 a33037 sei 

53038 sta #a165 

33040 stx #al64 

53042 sty #al63 

53044 cli 

53045 rts 

33046 

BE > MONITOR-MELDUNGEN 
53046 

53046 a53046 .by 13 "monitor" 141 

53053 “by 153 ’break” 

53061 ‚by 13 ° pc sr acır yr sp’ 13 °’5’ 166 

53086 ‚by ’a’ 168 

53088 «by * erroR” 

53094 5 

33094 353994 Ida a53®4s,x ı zeichen aus text 

53097 php 

53098 and #127 

33100 jsr 365479 77-3 bsaut 

53103 inx 

53104 plp 

53195 bpl a53094 s nicht letztes zeichen: -> 


53197 rts 


53108 ABSCHLUSS DER ZEILENÜBERNAHNME 
SF198 

53108 aS3108 Ida #13 

53118 ldx *a152 ı eingabe-kanal 

53112 cpx #3 ; bildschirm? 

53114 beq aS3ı122 ;’ jaes —> 

53116 ldx #a153 ; ausgabe-kanal 

53118 cpx #3 ;3 bildschirm? 

53128 beq a53125 3 jas > 

53122 aSsl22 jsr a56393 ; == print 

53125 a53125 Ida #13 

33127 jmp a55728 5 => register wiederherstellen 
53130 

3130 gm 

53130 

33130 aS3130 Ida a275,x ı farbkodes im ram 

533133 bit a2041 s flag für kodes im rom gesetzt? 
SE1I6 bpl a53141 s nein: -> 

531738 lda a57667,x ; farbkodes im rom 

53141 aS3141 rts 

53142 

33142 a53142 bit 22040 ı flag für laden aus ram gesetzt? 
53145 bmi a53150 ı ja —> 

53147 Ida (al6l),y ; laden aus rom 

53149 rts 

533138 

53150 a53150 Ida #al6l ı ladeadresse 

531532 sta a2015 ; einsetzen 

53155 jmp 22999 3 => Ida (aldöl),y 

53158 

533158 a5z158 Ida #9 ı teil von reset 

53148 sta as4B00 

33183 ora #128 

53165 sta 364868 

53168 imp as4542 3 => modul-initialisierung 
53171 

53171 a52171 php ; diese routine wird ins ram kopiert 
53172 sei ; ab a26a? 

53173 sta a65343 ı ram einschalten 

53176 Ida (aß),y ; adresse wird vorher eingesetzt 
53178 sta a65342 ; rom einschalten 

ss1e1 plp 

53182 rts 

53183 

53185 gm KASSETTE UND BHR BEDIENEN 
53193 

S318F aST18T Ida 364784 

33196 and #4 ı recorder play-taste gedrückt? 
53188 bne a53217 ı mein: -> 

33190 bit a2a44 ; läuft motor? 

SF193 bmi aS53201 3 ja > 

53195 ida *al 

53197 and #41111@111 ; motor einschalten 

531997 sta *al 

53201 aS3201 dec 32045 ; zähler für uhr-taktı 

33204 bpi a53214 s in S interrupts wird die uhr 
372085 lda #4 ; um 5 takte weitergeschaltet 
53208 sta a2045 

Ss3211 jsr 3932976 3 ---> uhr weiterschalten 


53214 a53214 jmp a32976 3 777} uhr weiterschalten 


Seite 181 
53217 a53217 sta 22044 ; motor-flag rücksetzen 
33220 jsr 259288 3 --> motor ausschalten 
33223 jmp a53201 ’ 
53226 
BE m — RUCKSACK VON 
53226 
53226 aS3226 ins 
53227 stx a65220 
33230 stx ad6S521& 
53233 lda #128 
53235 sta a65297 
53238 rts 
53239 
Fe pP a nn 
53239 
33239 ‚by 255 255 255 255 255 255 255 255 255 
533248 
DSag gem ZEICHENSAT 
33248 
53248 a53248 .by 469111109 ; 
53249 ‚by 451100110 
53250 „by 4611@1110 
33251 „by 481101118 
33252 ‚by 4O1190000 
33233 „by %R110BH010 
33254 “by 486111100 
532535 „by ZEBRHBAGH 
53256 
533236 .by 24 60 102 126 102 102 102 6 
53264 „by 124 102 102 124 182 102 124 & 
33272 „by 68 192 96 96 96 102 40 9 B 
53286 ‚by 126 168 162 102 102 108 120 D 
53288 ‚by 126 96 9 120 96 9% 12498 5 
53296 ‚by 126 96 96 120 94 96 96 & 3 
33304 .by 68 102 96 118 102 102 89 5 
33312 „by 102 102 102 126 192 182 102 © 
33320 ‚by 68 24 24 24 24 24 60 8 H 
53328 „by 38 12 12 12 12 108 56 & H 
33336 .by 182 108 120 112 120 108 102 0 
53344 .by 96 96 976 96 96 96 126 9 3 
53352 By 97 119 127 17 MM MIO H 
33260 ‚by 182 118 126 126 110 102 102 © 
33368 .by 68 192 192 102 192 102 69 @ 
33376 „by 124 102 102 124 9% WM MR ; 
53384 “by 68 192 192 192 102 68 1498 5 
33392 .by 124 162 102 124 128 168 182 6 
53400 ‚by 60 192 96 40 4 102 60 9 ; 
5I408 “by 126 24 24 24 24 24 249 3 
53416 ‚by 102 102 102 102 102 102 60 & 
53424 .by 182 102 162 102 192 40 24 © 
53432 ‚by 99 99 99 107 127 11990 5 
53448 .by 192 102 60 24 48 182 1020 5 
53448 ‚by 102 102 102 60 24 24 24 © H 
53456 .by 126 4 12 24 48 96 126 & 3 
53464 .by 60 48 48 48 48 48 40 © ; 
53472 .by 12 18 48 124 48 98 252 Ö ; 
53480 “by 68 12 12 12 12 12 60 & } 
52498 ‚by 5 24 60 126 24 24 24 24 B 
53496 ‚by @ 16 48 127 127 48 16 8 ’ 


---> uhr weiterschalten 


IEEC-ABSEHLUSS 


een <xsE<c4VD 9 UT DO zZrku-moaonmummm 


>eE 


CHAR 


33504 a53504 .by20090000%8 ; blank 
33312 ‚by 24 24 24 24002408 F H 
S3I20 ‚by 182 102 102980900 H i 
33328 „by 182 102 255 102 255 102 102 0 # 
33336 “by 24 62 96 68 & 124 24 8 3 $ 
33344 „by 98 102 12 24 48 102 78 © b % 
33392 „by &0 102 48 56 183 102 63 8 3 % 
53766 ‚bydslzzanoamnnm 3 z 
533368 ‚by 12 24 48 48 48 24 120 H ( 
33376 «by 48 24 12 12 12 24 4808 3 ) 
33584 .by 9 102 69 255 60 102 00 3 * 
33972 “by & 24 24 126 24 2400 3 + 
53600 ‚byaomam0 242448 5 , 
353688 ‚byasaisananım 5; - 
53616 .byao090 24 24% b . 
53624 .by® 361224489 8 b / 
33632 ‚by 8 182 110 118 102 102 69 8 ‚8 
53649 “by 24 24 56 24 24 24 124 8 F 1 
53648 «by 648 102 & 12 48 96 126 & B 2 
33656 “by 68 102 6 28 6 182 40 8 3 3 
33664 .by & 14 30 192 127 6566 ; 4 
53672 «by 126 96 124 6 & 102 66 8 H 5 
53688 ‚by 60 102 96 124 102 102 689 3 & 
53688 „by 126 102 12 24 24 24 24.0 B 7 
33676 ‚by 68 102 102 68 102 102 00 5 8 
33704 ‚by da 102 102 62 6 102 60 © E 9 
53712 ‚byeazmıeoazm4a0 53 : 
33720 „by 09 2460 24 24 48 F b 
33728 .by 14 24 48 96 48 24 14 8 b x 
33736 ‚by 55 126 a 12.000 3 = 
53744 “by 112 24 12 6 12 24 112 6 5 > 
33732 ‚by 68 102 6 12 24 9 24 0 5 ? 
33768 

33760 a53760 „by 0 6 0 255 2550990 3 192 
33768 «by 8 28 62 127 1272862 3 193 
53776 .by 24 24 24 24 24 24 24 24 B 174 
533794 by 8» 0 255 25989098 5 195 
33792 ‚by 8 6 255 25500906 B 176 
5800 ‚by 8 255 255290000 B 197 
33808 ‚by 2000255 2559090 F 198 
533816 „by 48 48 48 48 48 48 48 48 3 477. 
33824 «by 12 12 12 12 12 12 12 12 F z09 
33832 ‚by a 0 8 224 240 56 24 24 3 261 
33848 »by 24 24 281579980 H 202 
33848 ‚by 24 24 56 240 224000 3 203 
33896 «by 192 192 192 192 192 192 255 255 ; 204 
53864 «by 192 224 112 56 28 14 73 b 205 
33872 ‚by 3 7 14 28 56 112 224 192 3 206 
53888 «by 255 255 192 192 192 192 192 192 » 267 
53988 “by 255 255333333 5 298 
33896 ‚by a su 126 126 126 126 66 8 3 269 
337604 .‚bya006006 255 2550 H 219 
53912 ‚by 54 127 127 127 62 288% B 211 
53920 «by 96 96 76 96 976 96 96 96 H 212 
53728 ‚by ®0®98 715 28 24 24 F 213 
339736 “by 195 231 126 60 60 126 251 195 ‚ 214 
33744 ‚by 2 60 126 182 182 126 a6 5 215 
33952 .by 24 24 102 182 24 24 46 6 B 216 
33968 ‚by6s6b6sdsdsdbdh 3 217 


33968 by 8 28 42 127 62 28808 b 218 


33976 „by 24 24 24 255 255 24 24 24 H 217 
33994 “by 192 192 48 48 192 192 48 48 ; 228 
53992 ‚by 24 24 24 24 24 24 24 24 E 221 
54008 ‚by 58562 118 54 54 8 5 22 
54008 „by 255 127 63 31 1573141 5 223 
54018 

54016 a5S4016 .by28809200906 E 160 
54024 .by 240 246 240 240 240 240 240 2409 s 161 
34932 .by 2 a 009 255 255 255 255 b 162 
54048 «by 25 088690098 b 163 
34048 ‚byaoaoaoo a0 255 B 164 
54056 „by 192 192 192 192 192 192 192 192 ; 165 
54964 ‚by 204 264 51 51 204 264 51 Si s 1656 
54972 ‚by33333333 b 167 
54088 ‚byaooo 204 204 51 51 H 168 
54988 ‚by 255 254 252 249 240 224 192 128 ; 169 
34095 by33333333 b 179 
54104 "by 24 24 24 31 31 24 24 24 3 171 
S4112 .by20091515 1515 b 172 
54128 ‚by 24 24 24 31 31090 } 173 
54128 .by © @ 0 248 248 24 24 24 b 174 
54136 ‚byvaoaoao» 255 255 5 175 
54144 ‚by 0 0 0 51 31 24 24 24 3 175 
54152 .by 24 24 24 255 250008 3 177 
54158 ‚by 0 0 0 255 255 24 24 24 B 178 
54168 .by 24 24 24 248 2498 24 24 24 F 179 
34176 „by 192 192 192 192 192 192 192 192 ; 188 
54194 .by 224 224 224 224 224 224 224 224 ‚ 181 
54192 “by 77777777 5 192 
54200 „by 255 235508080008 3 183 
54208 «by 255 255 25500000 H 154 
54216 ‚byyvapmoo h 255 255 255 F 195 
5422 .by333333 255 255 3 186 
54232 ‚by »o a 8 240 240 Zaun 240 H 187 
54246 ‚by 1515151500908 b 188 
54248 ‚by 24 24 24 249 2418000 b 199 
34256 ‚by 240 249 Zya 20000 H 178 
54264 ‚by 240 240 248 240 15 15 15 15 3 371 
34272 

54272 a54272 .by 68 162 116 110 96 98 40 & b ß 
54290 ‚by BB &0 & &2 102 &2 8 E a 
54288 .by 96 96 124 102 182 192 124 8 ; b 
34296 ‚by 8 8 68 102 96 102 68 © F c 
54304 by & 6 62 1092 182 102 62 & H d 
54312 ‚by a 0 86 102 126 96 62 8 b e 
54320 ‚by 28 54 48 120 49 48 48 0 H f 
54328 ‚by 5 8 &2 162 102 62 6 124 5 [e} 
54336 .by 96 96 124 102 182 192 182 8 ıh 
54344 „by 24 5 24 24 24 24 248 H i 
534552 ‚by&sa66 4545 102 68 5 j 
34368 «by 96 96 102 109 120 124 102 8 ;k 
54368 ‚by 56 24 24 24 24 24 608 08 ’ 1 
543786 „by 5 5 187 127 127 99 990 3 m 
34384 .by.8 0 124 102 162 192 102 8 3 n 
54392 «by @© 6 66 162 102 102 48 0 Ä o 
54409 .by & a 124 192 102 124 96 96 ’ FR 
54408 ‚by 2 8 62 182 102 62 66 B q 
54416 ‚by 2 6 124 102 95 96 96 8 H r 
54424 by 8 0 60 96 AB 6 124 98 B s 
54432 .by 48 49 252 48 498 54 28 0 B je 


54440 .by @ © 192 102 192 192 60 © 5 u 
54448 .by 8 8 182 192 102 48 24 0 H v 
54456 .by © @ 99 107 127 54 34 & F w 
54464 ‚by 8 9 182 60 24 46 182 0 5 x 
54472 ‚by 8 9 182 102 192 62 6 124 5 y 
54480 .by 8 8 126 12 24 48 126 8 5 zZ 
54488 ‚by 60 48 48 498 48 48 &6 & b ä 
54496 ‚by 12 18 48 124 48 98 252 9 b ö 
54504 “by 68 12 12 12 12 12 66 b ü 
34512 „by ® 24 60 126 24 24 24 24 E ie 
34520 .by @ 16 48 127 127 48 16 8 b Ar 
54528 

54528 254528 .by®280080090%& ; blank 
54536 „by 24 24 24 24900240 B | 
534544 .by 182 182 1922090009 B ” 
34552 ‚by 102 182 255 102 255 102 102 0 ı# 
34568 ‚by 24 62 96 60 & 124 24 0 b $ 
54568 .by 98 182 12 24 48 102 70 0 H % 
54576 ‚by 60 102 69 56 163 192 659 ; % 
54584 ‚bysi2z2aooo00 5 ii 
54592 ‚by 12 24 48 48 48 24 12 0 B ( 
34660 „by 48 24 12 12 12 24 48 F ) 
34608 ‚by 0 182 60 255 60 10209 5 * 
34616 ‚by 6 24 24 126 24 2498 3 + 
54624 ‚byaaaaaz24 2448 ; s 
54632 .byaB681262900 5 = 
54640 ‚byacaoas»624249 ’ . 
54548 ‚by 55361224 48960 3 / 
34656 ‚by 68 102 118 118 192 102 68 8 ‚68 
54664 ‚by 24 24 56 24 24 24 126 6 B 1 
54672 „by 60 102 4 12 48 96 126 © ; 2 
54580 ‚by 0 102 6 28 & 102 40 8 } 3 
54699 „by 4 14 30 102 1276698 b 4 
34696 ‚by 126 96 124 6 & 192 da 8 B 3 
54704 «by 48 182 9& 124 102 102 590 3 & 
34712 .by 126 102 12 24 24 24 240 B 7 
547208 “by 68 102 182 &8 102 102 00 5 8 
534728 ‚by 60 182 102 62 & 102 49 8 3 7 
54736 ‚byYeasz24no 2400 3 H 
54744 ‚by 9 0 249009 24 24 48 B 3 
34752 .by 14 24 48 96 48 24 14 8 5 < 
54766 ‚by 6 126 6 12656006 3 = 
54768 „by 112 24 12 6 12 24 112 8 5 > 
54776 «by 68 102 6 12 240 246 ; ? 
534784 

547984 254784 ‚by 0 6 6 255 235000 ’ 192 
34792 ‚by 24 68 102 126 162 182 102 0 ı_ A 
54800 ‚by 124 192 102 124 192 192 124 © ı B 
54808 „by 48 102 96 96 96 182 60 8 3 je 
54816 ‚by 126 108 192 182 102 108 120 8 ; D 
54924 ‚by 126 94 96 120 96 9% 12408 5 E 
34832 "by 126 96 96 126 96 96 96 8 B F 
54848 „by 68 102 96 118 162 182 6080 5 6 
54848 «by 192 122 192 126 102 192 182 6 ı H 
54856 „by 68 24 24 24 24 24 60 0 3 I 
54954 .by 30 12 12 12 12 108 56 © ’ J 
54872 .by 182 188 128 112 126 188 102 6 ıK 
54886 by 96 96 F& 96 96 96 126 8 B L 
54888 ‚by 99 119 127 1097 9799790 5 M 
54896 .by 182 118 126 126 110 192 102 8 N 


54904 .by 68 102 162 102 102 102 60 @ ;0 
54912 .by 124 192 182 124 6 6 WB ; P 
54920 .by 60 102 102 192 102 60 140 35 fe) 
54928 .by 124 182 192 124 120 108 192 ® ER 
54956 .by 60 192 96 60 & 102 60 & ; S 
54944 .by 126 24 24 24 24 24 24 0 ; T 
54952 .by 192 102 102 102 102 192 60 @ su 
54960 .by 192 192 182 102 192 66 24 6 _v 
54968 „by 99 99 99 187 127 119908 3; W 
54976 .by 102 102 60 24 66 182 1020 ; x 
54984 .by 102 102 102 698 24 4 246 ; Y 
54992 .by 126 6 12 24 48 96 126 0 ; z 
55008 .by 24 24 24 255 255 24 24 24 ; 219 
55908 .by 192 192 48 48 192 192 48 48 ; 220 
55916 .by 24 24 24 24 24 24 24 24 ; 22 
55924 „by 51 51 204 204 51 51 204 204 ; 222 
55932 .by 51153 204 102 51 153 204 102 ; 223 
55940 

55040 a55046 .by 090929099 ; blank 
‚35948 .by 240 246 240 246 249 240 249 246 ; 161 
35956 ‚by 0 0 6 @ 255 255 255 255 ; 162 
55064 ‚by 2350000000 3 163 
55072 .by0000090025 ; 164 
55980 „by 192 192 192 192 192 192 192 192 ; 165 
55088 .by 204 204 51 51 204 204 51 51 ; 166 
55996 bySSIZIEIEI ; 167 
55104 .by 8 0.0 ® 204 204 51 51 ; 168 
55112 .by 284 153 51 182 204 153 51 102 ; 169 
55120 BYE STSSEISE ; 178 
55128 .by 24 24 24 31 31 24 24 2 ; 171 
55136 .by 80098151515 15 ; 172 
55144 .by 24 24 24 3131999 ; 173 
55152 ‚by @® 0 0 248 248 24 24 24 - 17 
55160 ‚by 09090 2559 255 ; 175 
55168 .by 9 © 6 31 31 24 24 24 ; 176 
55176 by 24 24 24 255 2550900 ; 177 
55184 .by © 0 6 255 255 24 24 24 ; 178 
55192 ‚by 24 24 24 248 248 24 24 24; 179 
35208 .by 192 192 192 192 192 192 192 192 ; 188 
55208 „by 224 224 224 224 224 224 224 224 ; 181 
55216 be ZITTTTT : 192 
55224 ‚by 295 25509009898 ; 193 
55232 .by 255 255 255909009 ; 184 
55249 „by 29000 259 255 255 5 195 
55248 .by 1 3 6 198 126 112 9%6 0 ; 186 
55256 ‚by 8 0 0 6 240 240 245 246 ; 187 
55264 .by 15 1515150098 s 188 
55272 .by 24 24 24 248 248 0 9 8 ; 187 
535280 .by 240 248 240 2990000 : 170 
55288 .by 240 240 240 246 15 15 15 15 191 
55296 

FF2IE Immmmmmmm 

55296 

35296 by 42 

55298 

BE nn ZEILENADRESSEN 
55298 

53298 a952998 .by @ 46 88 120 160 200 240 24 64 184 ; 1-bytes 
55308 „by 144 184 224 B 48 88 129 149 268 248 

55318 .by 32 72 112 152 192 


by BZ RBIRZREBNDS ; h-bytes 
„by 13 13 13 14 14 14 14 14 14 14 
„by 15 151515 15 


33353 a55353 
35359 
55357 
55359 
95361 
333653 
55366 
335367 355369 


33374 a53374 
55376 
35379 
35381 
339383 
55385 
33387 
55398 
35392 
35394 
33396 
35398 
SS461 
55403 
55406 
55498 
55411 
55414 
55417 
55419 
55422 
35424 
55427 
55429 
55432 
35455 


a55432 


a55369 
*a205 
*al96 
*a202 
*a197 
356744 
a55464 
*a205 
*a202 


*3246 
#1,a56186 
a1349 

#h, a56186 
al350 

#10 

al343 
a1354 


al545 


per 


. 


DL EERPEET EERREEFT EERREEFT ER 


55435 3-——------ 


55435 
33435 
55438 
35441 
55444 
355447 
55448 


a3s9435 
a55438 


ass45o 
as55466 
a56955 
azazı 


a55438 


spaltenzahl 
zeilenzahl 


PLOT 


kursorzeile 

lstp: letzter zeilenwert 
kursorspalte 

lsxp: letzter spaltenwert 

---} volles bildfenster 

---> setpnt: kursorzeiger setzen 
kursorzeile 

kursorspalte 


EDITOR RESET 


wird anscheinend nicht abgefragt 


ausgabekanal = bildschirm 
eingabekanal = tastatur 
shift-C= freigeben 
textmodus einschalten 
ndx: tastenpuffer-index 
print-warteflag 


l,keylog-vektor 

I Pa 

maximalwert für tastenpuffer-index 
delay: anlauf-verzögerung 

rptflg: flag für tastenwiederholung 
schwarz 


zeichenfarbe 


kount: normalverzögerung 
=---> volles bildfenster 
CLEAR SCREEN 

---: home 

---> kursorzeiger auf zeile (x) 
---> zeile (x) löschen 

endzeile erreicht? 


nein: -># 


33903 
33906 
53307 
33398 
53998 
Ssssil 
53313 
33316 
53519 
33920 
55322 
33924 
33326 
33927 
33928 
33929 
93930 
53339 
533330 
53330 
59333 
IIII6 
33338 
33548 
Sss4l 
33544 
33346 
33347 
53348 
33350 
53333 
III 
39337 


3333 


ass464 
ass466 


a33476 


333499 


a353ssd 
a3ssss 


a2923 
*a202 
*+a197 
*a205 
ags298,x 
*a200 
a353323,x 
*a2o1 
*a200 
*a234 
*a201 

#3 

#h, 22049 
+a235 


al373 
a53308 
a1374 
al3aT,y 
al373 
al374 


al319 

#0 
alsi19+1,x 
al319,x 


ı #239 


asss1l3 
*3239 


(3234) ,y 


al337 
(a234),y 


*a200 
365293 
*a201 
#0 

#11 


a635292 


PPPBL 7 GEPFUL?? BERERE”” EPRRRL?? ERRREEYT BEPRRLFT BPRRGLRE: 


. 


AUS 


a 
Ei 
a 
® 
’ 
’ 
Fi 
a 


PPPEEFTESPPEEFT 


sctop: oberste zeile 
kursorzeile 

lstp: letzter zeilenwert 
linker rand 

kursorspalte 

lsxpı letzter spaltenwert 
kursorzeile 
l-adressentabelle 

l,pnt: zeilenanfangsadresse 
h-adressentabelle 

h,pnt; zeilenanfangsadresse 
l,pnts zeilenanfangsadresse 
l,cpnt: adresse im color ram 
h,pnt: zeilenanfangsadresse 


h,cpnt: adresse im color ram 


TASTENPUFFER HOLEN 


kyndx: funktionstextlänge 


‚= = 


keyidxs zeiger in textpuffer 


;ı zeichen aus text 
; zeichenzähler erniedrigen 
ı zeiger erhöhen 


erster kode im tastenpuffer 


pufferinhalt nachschieben 


ndx: alle kodes verschoben? 
nein: = 

nds: index erniedrigen 
erster kode 


EINGABE VOM BILDSCHIRM 


==} nrine 

> zeiger in color-ram setzen 
kursorspalte 

kode aus color-ram 

retten 

zeichenfarbe 

in color-ram 

kursorspalte 


+ l1,pnt: zeilenanfangsadresse 
= ],kursoradresse 

h,pnt: zeilenanfangsadresse 

+ übertrag 

- 14 

= h,kursoradresse 


55562 a55562 1da #a239 ; ndxs tastenpuffer-index 

533564 ora a1l373 ; kyndx: funktionstextlänge 
33367 beq 333562 ; beide = @: warten -} 

333697 pla ; alten kode wieder 

53378 sta (a234),y ; in color-ram bringen 

53372 lda #255 i kursor abschalten 

53374 sta a65292 

33377 sta a65293 

53380 jsr a55489 5 -7-> kode aus tastenpuffer holen 
53393 cmp #131 ı "run’-taste? 

55385 bne a5569%3 s nein: -7 

53597 ld« #7 

533597 sei 

33370 stx #3239 s ndx: tastenpuffer-index 

33592 a53992 Ida a57642-1,x ; text für "run’-taste 

53395 sta al319-1,x ; in tastenpuffer kopieren 

53378 dex 

339997 bne 355592 

S5I6R1 a5S56ßl begq a555s33 ; zurück zum schleifenanfang -> 
53603 

SI60I a5T60F camp #13 s return’? 

33603 bne a53330 } nein: -> 

53697 sta #3199 ;s crsw: flag für zeilenübernahme 
33667 jsr a37237 } 7-5 kursor an log. zeilenende 
533612 stx al353 } bildschirmzeile 

55615 jsr a37223 3 => kursor an zeilenanfang 
33618 Ida #0 

53628 sta #a203 ;i gtsw: qauote-modus 

35622 ldy a2023 ı linker rand 

33625 lda #al96 ; lstp: letzter zeilenwert 

535627 bmi 335648 ı flag für "ganze zeile’ gesetzt: -> 
39629 cmp #a205 ; kursorzeile 

SIo31 bec 353648 ; lstp © kursorzeile: -> 

SIo33 ldy #*%a197 ; l1s#pı letzter spaltenwert 
53635 cmp al333 ; l1stp = log. endzeile? 

53638 bre 255644 s neins -> 

55640 cpy #*a195 ; letzter spaltenwert = zeilenende? 
33642 bea 355646 sı jas > 


57644 353644 bcos a939663 letzter spaltenwert > zeilenende: -> 


H 
33646 a55646 sta #a205 ; kursorzeile 

SIh48 a595648 sty Haze ; kursorspalte 

TI6TE jnp a33671 3 ---> zeile übernehmen 

SI6ITE 

Brass Jemen ZEICHEN VOM BILDSCHIRM HOLEN 
S3I653 

55653 a55653 tya 

57634 pha 

33635 txa 

fefet= tete) pha 

33637 lda *a199 ı crsw: flag für zeilenübernahme 


534597 bea a55ößl ; = 9: zeileneingabe starten 


s 
SIhhl bpl a956571 ; < 128: zeilenübernahme starten 
5663 a35663 Ida #9 ; zeilenübernahme abschlieen 
35665 sta. #a177 i crsws flag für zeilenübernahme 
33667 jmp ass1d8 3 77-> abschlu 
539670 


3367% nop 


a33671 


a33689 


a559695 


333699 


a553719 


2 359722 


333728 


a33790 


as3s7s1 


233764 


255464 
as7135 
*+a206 
#63 
+a206 
+a206 
a55689 
#128 
a55695 


3553738 
*a205 
al353 
a3=719 
*a202 
*a195 
a557197 
*a1997 
a353722 


a372797 
#222 
333728 
#255 
*2205 


*a205 


ya 
a33750 
*a203 
#1 
*a203 
gr" 


*a206 
a2927 


*a207 
a33764 
*3203 


EU ZERFEFT 


EPPESRREEFTESRREEFT: 


PORBEFP: 


> Kk 


ursorzeiger setzen 


---> zeichen vom bildschirm lesen 


und me 


bit & 


rken 


gesetzt: -> 


bit 7 gelöscht: -> 


gtsw: 
gesetz 


; bit 5 


quote-modus 
t: => 


gesetzt: -> 


---> quote-modus setzen falls *"" 


kursor 
< logi 
jas -? 
kursor 
x indx 
jaı > 


zeile 
sche endzeile? 


spalte 
: zeilenende? 


crsw: flag für zeilenübernahme 
zeilenübernahme abschlieen -# 


---: kursor nach rechts 


kode f 


ür pi? 


nein: -> 


ersetz 


en durch 255 


übernommenes zeichen 


übernommenes zeichen 


auo 


atswr 


atsws 


TE-M0DUS 


quote-modus 


quote-modus 


ABSCHLUSS VON 


ausgeg 
letzte 


ebenes zeichen 
s ausgegebenes zeichen 


insert-zähler 


kein i 
gtsw: 


nsert: > 
quote-modus rücksetzen 


FRINT 


33797 
53868 
33803 
55805 
33907 
57810 
55812 
S3915 
33817 
53828 
33923 
33825 
337828 
53830 
33931 
327934 
533936 
33837 
33840 
3941 


SI841 5 


3841 
33941 
33843 
33846 
55848 
Saal 
55853 
33856 
53958 
33960 
33960 
533963 
33964 
55866 
53869 
33969 
33869 
33869 
53972 
339374 
39976 
33879 
5881 
533883 
33985 


a53769 
ass77ı 


a337753 
a33777 


a33797 
ass 


asse1l7? 


a33937 
asyas4d 


ass84l 


agsgas 


333964 
333966 


as5s9s? 


336792 


ı #0 


a37345 
a2024 


- 355817 


+a205 


ı a2021 


a3s917 
a2023 

a3s840 
a39464 
a37279 
353840 
a57145 
a33837 


a2925 
as57849 
a353702 


ı #a205 
ı a2021 


ass 
a2025 
agsgsd 
a2a22 
*a205 
333866 


*a205 
ass4s4 


as53z98,% 
*3169 
#a192 


a A325 


#a193 

#3 
#h,a2048 
*a170 


- DPPEES 7 ZEPPEET T ZEPFEFTEERREEPT 


u a a aa a a a 


A a a a a a 


rvs-flag 

nicht gesetzt: -} 
bit 7 setzen 
insert-zähler 
kein insert: -" 
insert-zähler erniedrigen 
auto-insert eingeschaltet? 
nein: -> 


---> zeichen einfügen 
insert-zähler rücksetzen 


---> zeichen auf bildschirm ausgeben 
rechter rand erreicht? 

nein: -> 

kursorzeile 

= unterste bildschirmzeile? 

nein: -? 

scroll abgeschaltet? 

ja: fertig -> 

---} kursorzeiger setzen 

---} kursor nach rechts 


---> getbit: zeilentabelle 


scroll abgeschaltet? 


---} lserzeile einfügen 


SCRÜULL AUF 


kursorzeile 

“ unterste bildschirmzeile? 
jas —> 

scroll abgeschaltet”? 

nein: > 

oberste bildschirmzeile 

= kursorzeile 

immer -> 


---> scroll auf 


’ kursorzeile 


5 


’ 
s 
Ei 
. 
E 
’ 


---} kursorzeiger setzen 


BILDBSECHIRMZEILE UMKROPILERE 


l,adresse der zeile (x) 
l,zeiger in color-ram 

l,zeiger in zeichen-ram 
h,adresse der zeile (x) 
h,zeiger in zeichen-ram 


h,zeiger in color-ram 


55897 353987 1lda (al92),y ; kode aus zeichen-ram 

55897 sta (a20B),y ; in kursorzeile umspeichern 
sel lda tails9),y ; kode aus color-ram 

55893 sta (a234),y ; in kursorzeile umspeichern 
33895 cpy a2024 ;s rechter rand erreicht? 
539978 iny 

53389797 bee 255897 ; nein: -> 

Sssrnl rts 

5702 

DIE LEERZEILE EINFÜBEN 
55702 

s3Ira2 assro2 1Idx *#a196 lstp: letzter zeilenwert 


55704 bmi a55712 flag für "ganze zeile’ gesetzt: -> 
33906 cpx *a205 lstp © kursorzeile? 

57768 bee aS5912 jar -7 

535718 inc *al95 letzten zeilenwert erhöhen 


S571l2 aSs5rl2 1dx aze21 
53715 a5515 jsr 2595466 


zeilenzeiger auf unterste zeile setzen 
---> kursorzeiger auf zeile (x) 


a a Er a a ER A 


55718 ldy a2923 linker rand 

5921 cpx #a205 kursorzeile erreicht? 
33723 beq a35937 ja: fertig -> 

39925 dex 

539726 jsr 237147 3 -7-> getbit: zeilentabelle 
55929 inx 

339730 jisr 357169 } -7-> clrbit: zeilentabelle 
33733 dex 

533734 jsr 2353969 3 ---> zeile {x) nach (x+1) kopieren 
33737 bes aS5915 ; immer -? 

59939 

55939 a553939 jsr a56055 } 77-5 zeile {x) löschen 
53742 jap a57177 3 --> setbit: zeilentabelle 
55745 

533945 a553945 1dı a2822 ; oberste bildschirmzeile 
55948 a55948 ins 

55949 isr a57147 3 --> getbit: zeilentabelle 
397532 bee 355966 

33954 cpx azazl } unterste bildschirmzeile 
55957 bec a53748 

55957 ldx a2022 ; oberste bildschirmzeile 
55762 ins 

59963 jsr 237162 3} -7-> celrbit: zeilentabelle 
55966 aS5I966 dec #a205 ; kursorzeile 

35968 bit #196 ; lstp: letzter zeilenwert 
53979 bmi a553974 

33972 dec #a19& ; 1stp: letzter zeilenwert 
55974 a55974 1dx a2022 i oberste bildschirmzeile 
35977 cpx #2254 

559779 bes 3535993 

55781 dec *2254 

533783 a55998I jsr a560a5 3 => ab zeile (x) aufwärts scrollen 
559786 ldx a2922 ; oberste bildschirmzeile 
55989 jsr 257147 3 =" getbit: zeilentabelle 
359792 php 

35993 jsr 357162 ı -7-> clrbit: zeilentabelle 
33776 plp 

533797 bec 356004 

55999 bit a2928 ; lag-scroll-flag 

56062 bmi a55945 s gesetzt: -> 


56004 a56064  rts 


56205 
56898 
Sonıl 
56B14 
56816 
36817 
ToH26 
S6a21 
36024 
56025 
36028 
I6a30 
36030 
SA033 
5A035I 
56038 
56848 
536942 
56044 
56045 
5ha46 
S6n48 
56949 
56051 
56852 
36052 
54053 
56054 
56055 
SHRIT 
5658 
Shn6l 
ToB6d 
56065 
56066 
56968 
56970 
368973 
56975 
56478 
gaaga 
Shndl 
Sssoal 
SoHBl 
sbog1 


 I6HBT 


THHBh 
36088 
360970 
36093 
36994 
360975 
569978 
Seo1ls1 
S61o1 
56103 
56105 
56157 
36169 
S6111 


a56dd5 


a36030 


a56044 


agaasl 


asausT 


asea6l 


assadl 


asslo1l 


a33466 
a2023 


ı a2621 


assdsd 
a37147 
a37166 


a33969 
as36ß05 


a36055 
#71 111111 
a36176 
#411011111 
as6ssl 

#0 


assd44 


ason44 


a2az3 
a57162 
a33466 


4 
(a238) ,y 
al339 
(a2id) ,y 
azazd 
asad6ss 


#0 
a1l347 
#64 
*a1978 
as6176 


ı #255 


assldl 
as6s3zl 


#0 
#1,a57392 
ta23h 

#h, 357392 
*a237 
#711111110 


PPEREFFESRREEFT) 


EFFERRREEFe: 


PPPEPPFELeF: 


> kursaorzeiger auf zeile (x) 
linker rand 

unterste bildschirmzeile 
erreicht: -> 


---} getbit: zeilentabelle 
---> clrbit: zeilentabelle 


---} zeile (x) auf zreile (x-1) kopieren 
immer -> 


---} zeile (x) löschen 


---: dekoder abfragen 
[= - taste gedrückt”? 
neint -#> 

warteschleife ca. 6.5 5 


linker rand 
> celrbit: zeilentabelle 
kursorzeiger auf zreile (x) 


color 

in color-ram 

rechter rand erreicht? 
neins => 


TASTATURARFRAGE 


shflg: shift flag 


offset in kode-tabelle 
---> dekoder abfragen 


taste gedrückt? 
jas =? 


offset 
adresse der kodetabelle 1 
in zeiger bringen 


für dekoder-eingang 


56113 
S6115 
36116 
536117 
56118 
56121 
36125 
36124 
56125 
36128 
56130 
56132 
36133 
36135 
36136 
56138 
56149 
56142 
56144 
56146 
36149 
56152 
So1l54 
36134 
56156 
56157 
36158 
56160 
56162 
56163 
56165 
36166 
56167 
56168 
56179 
56178 
S6171 
56173 
56176 
56176 
56176 
56176 
36179 
36182 
56195 
5A196 
36185 
56186 
36186 
36199 
Soll 
36193 
56196 
561789 
Sh281 
36205 
56296 
S6208 
Seil 
So213 


56216 


ass11S Id 
pha 
pla 
pha 
jsr 
sta 


a56ll6 


3361786 
*a238 


as6178 
*3258 
aS61ll& 
a 


(a2I6),y 
#5 
3356154 
#3 
336154 
a1l347 
al347 
336156 


as6154 
ass156 
a36157 


*a198 


#69 
a36179 


a36132 


a36170 
*3198 
(a1349) 


aS&176 as4891& 
365298 


363288 


a56s186 al247 
#3 
a56218 
alzsı 
a36250 
al348 
a56250 
as3297 


al348 
a36230 


.. 


a  E  E 


EI ZErPEET) 


u a a 


bitzähler 


---: dekoder abfragen 
ergebnis merken 


---> dekoder nochmal abfragen 
gleiches ergebnis? 

nein: abfrage wiederholen -> 
bit ins carry schieben 

bit gesetzt -> 

a retten 

kode aus tabelle 


; gqröer als 47 


ja: -> 


; stop-kode? 


jas -> 
kode ins shift-flag odern 
1 shift, 2C0=, 4 ctrl 


offset in kodetabelle 
a wiederherstellen 
offset erhöhen 


alle tasten abgefragt: -> 
bitzähler dekrementieren 
wenn nicht @, nächstes bit -# 


dekoder-eingang 
nach links rotieren 
immer -> 


stack korrigieren 

offset in kodetabelle 

---> keylog (a56186) 
DEKODER-ARFRAGE 


tastaturdekoder eingang 


tastaturdekoder ausgang 


KEYLOS 


shtlag 

shift und C= gedrückt? 
nein; 
mode; shift-C=-tasten gesperrt? 
ja: 


wiederholungsverzögerung abgelaufen? 


nein: -> 


wiederholungsverzögerung setzen 


immer => 


56218 a56218 asl 


36219 
56221 
56223 
36225 
36228 
36230 
S6232 
36234 
26236 
56238 
36237 
56239 
36249 
56243 
36245 
56248 
Io258 
56252 
36254 
362533 
56259 
J6260 
36262 
36265 
36267 
56267 
36269 
36272 
36274 
36276 
36278 
36288 
56282 
36284 
36286 
Sa288 
Ia270 
36292 
36294 
56296 
36297 
Sol 
Sona4 
S6306 
363097 
Sasil 
Sos1E 
Sarls 
56318 
S6531 


56321 


336267 


296295 


336306 


camp 
bec 
lda 
Idx 
bne 
ld» 
cpx 
bne 
st» 
rts 


tax 
Ida 
sta 
lda 
sta 
idy 
lda 
tax 
epy 
beg 
ldy 
sty 
bne 


and 
bit 
bmi 
bvs 
cmp 
beq 
cap 
beq 
cnp 
beg 
cmp 
beg 
emp 
bne 
Idy 
beg 
dec 
bne 
dec 
bne 
ldy 
sty 
lcdy 
dey 
bpl 
nop 
nop 
lsır 
ldy 
sty 
epx 
beg 
txa 
ldx 


stx 


#8 


a56237 
*a240 


ay7374, 
*a2356 
as37374+1,3 
*a237 
+a198 
(a236),y 


22038 
aIS6267 
#16 
al346 


asos2 


#127 
a1344 
as6296 
as6363 
#127 
agaszl 
#20 
336296 
# 
a36296 
29 
as629& 
#17 
a96363 
al34s 
336306 


al548 
*31978 
a2058 
#235 
aloıt! 


#0 
*%a240 


EP BEP Ee 


Ana van Ss 


ctrl-taste? 
nein: -# 


offset in kode-tabelle 
ctrl-s? 
nein: -> 
print-warteflag setzen 


adresse der kodetabelle für x 
in zeiger bringen 


affset 
kode aus tabelle 


lstz: selbe taste wie beim letzten mal? 


” 


jas -> 


delay: anlaufverzögerung setzen 
immer > 


rptflg: wiederholungsflag gesetzt? 
gesetzt: -> 

auto-wiederhalung abgeschaltet: -" 
taste gedrückt”? 

nein: -> 

’delete'? 

jei -> 

leertaste? 

ja > 

"kursor nach rechts’? 

jar => 

"kursor nach unten’? 

nein: -> 

delay: anlaufverzögerung 
abgelaufen: -> 


; delay dekrementieren 


noch nicht @: -} 
kount: normalverzügerung 
nicht abgelaufen: -> 


neu initialisieren 
nd#: tastenpuffer-index 


shift-C= verzögerung 

aktueller affset 

als Istx = letzter offset speichern 
noch eine taste gedrückt? 

nein: fertig -> 

tastenkode 


print-warteflag rücksetzen 


56340 lds #7 

Sh342 a56342 camp a36395,% ı funktionstaste? 

56345 beq 256364 3 jas ma 

36347 dex 

56348 bpl 396342 

56330 ld# *a237 ı ndst tastenpuffer-index 

36332 epx al343 } maximalwert erreicht? 

36353 bes a56363 3a > 

36357 sta al319,x ı tastenkode in puffer 

36360 in# ı index erhöhen 

Sbahl stx #239 i ndxs tastenpuffer-index 

Iar6E asbls3  rts 

36364 

56364 a56364 ı länge des textes 

36367 ı in zeichenzähler speichern 
36370 } zeiger in puffer initialisieren 
36372 356372 } nummer der taste dekrementieren 
A373 bmi as6s3sl ı fertig: -> 

56375 etc 

36376 adc al375,H ı alle vorausgehenden längen addieren 
36379 bee a56372 

3a38l 


ass38i sta al374 } zeiger auf anfang des textes (x) 


a363985 „by 135 137 134 138 135 139 136 146 ı funktionstasten-kodes 


FRINT 

sta #a206 i kode merken 

pha 

txa 

pha 

tya 
36377 nha 
nee a6 Ida #a249 ı print-narteflag gesetzt durch ctrl-s? 
42 bne a5640B ı jast warten —" 
Sadind sta #3199 ; crswi übernahmeflag rücksetzen 
5406 lda #h,a53751-1 ı adresse des print-abschlu 
56408 pha ; auf stack legen 
56409 Ida #1,255751-1 
5641 pha 
S6412 ldy *a282 } kursorspalte 
Sa41l4 Ida #+a2d& ı datenbyte 
56418 emp #15 ı return’? 
564189 beq ad6od4an s jet > 
74420 emp #141 ı "shift-return'? 
s6422 beq adadsn 4 
36424 Ä er ausgegebener kode 
56437 ı "esse"? 


ı neims => 
} 7m esc=sequenz bearbeiten 


amoAl4 tax } datenbyte 
bmi 236457 ı shift-reichen: -" 
cmp #32 ı steuerkode? 
bee 256487 3 jest 2 
emp #96 » druckbarer kade? 
bee 356449 3 jat ma 
and #411@13 111 Para 127) im (69,2.,95) wandeln 


bne aS6a4s1 ’ immer 


36449 356449 and #%480111111 s (64,..,95) in (@,,.,31) wandeln 
56451 a56451 jsr a55778 3 77-> quote-modus umschalten bei ”"” 
; 


56454 jmnp a35771 » zeichen auf bildschirm, abschlu 
56457 

56457 a56457 jmp a56647 3 =07> shift-zeichen bearbeiten 
So4hH 

Br tSHIFTSI:RETURN 
56468 

56460 a5646a jsr a57237 3 --> kursor ans ende der zeile 
56463 inx ; zeilennummer 

56464 jsr 357162 3 =7-> clrbit: zeilentabelle 
56467 ldy a2023 i linker rand 

36470 sty #a202 ; =: kursorzeiger 

56472 jsr a55841 5 ==-> neue zeile 

36475 

a ESE>B: FLAGS L5öSCHEN 
56475 

56475 a56475 Ida #0 

56477 sta #a207 ; insert-zähler 

56479 sta *3194 s rvs-flag 

56481 sta #32063 ; quote-modus 

36493 sta a1l349 3 blink-flag 

56486 rts 

56497 

BRETT — STEUERKODES 

564897 

56487 356487 cmp #27 ; ’esc’? 

56497 beq 2565697 5 ja 

36471 ldx *%a267 s insert-zähler aktiv? 

36493 beg 356498 }ı nein: -> 

36495 356495 jimp a53775 3 ——-> zeichen rvs ausgeben, abschlu 
56478 

236498 a56498 cmp #20 ; "delete’? 

56588 brne a56505 ; nein: -" 

36502 imp 356729 ; =-: delete 

36505 

536505 a56505 1Idx #a203 ; quote-modus 

56567 be a56495 ; gesetzt: -> 

596509 cmp #18 ; ’rvs on’? 

S6s1ll brne a565315 ;s nein: => 

56513 sta *a194 ; rvs-flag setzen 

S6515 aSss1l5 cmp #19 ; home’? 

56517 bne a36530 ; nein: -> 

5365197 cmp a2027 ; zum zweiten mal ’home’? 
56522 bne a56527 ; nein: -> 

36524 jsr 356944 3 ---> vollen bildschirm herstellen 
56527 a56527 jmp a55450 5 77-> kursor in home-position 
36530 

I6I20 a56530 cmp #29 ; "kursor nach rechts’? 

36332 beq a36537% 3 jar > 

565334 cmp #17 ; "kursar nach unten’? 

S6I36 beq 336376 3 jas -> 

5658 cmp #14 ; "text-modus”? 

36548 begq 3566159 3 jas > 

56342 cap #8 ; "shift-C= aus’? 

56544 beq a36422 ; jas —> 

56546 cmp #9 ; "shift-C= ein’? 

56548 beq a36429 3 jas > 

56550 a5655o 1Idx #15 

36332 as65s2 cap as76äl,x ı farbkode? 

36535 beg a36äel 3 jas > 

536537 dex 

56558 bol 3365332 


36568 rts 
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a36397 
ass5s8 


a365897 


336376 


ag6ta4 


ass13d 
al337 


asss4l 
a37145 
a363937 


*a197& 


ı a2022 


+ *a205 


assss8 
3363797 
*2205 

ass46s4 


a572308 
3365358 
336387 
*a205 

aı657& 


a6352997 


ı #4 


a36643 


: o-> farbkode aus tabelle holen 


ı und speichern 


KURSOR 


3 on: kursor recht 
neue zeile: -> 


KURSOR 


; bit gesetzt: -} 


5 


NACH 


NACH 


zeilennr erhöhen, 
> getbit: zeilentabelle 


; flag für "ganze zeile’ 


KURSOR 


NACH 


ı erste bildfensterzeile 


= kursorzeile? 


® 
_ ja > 
3 


RECHTS 


UNTEN 


ggf. scraoll 


setzen 


OBEN 


---> getbit: zeilentabelle 
; zeilennummer erniedrigen 
3 77-> kursorzeiger setzen 


3 => kursor links 


NACH 


LINKS 


; kursar war in home-position:s => 


; zeilennummer erhöhen 


; immer 5 


TEXT-MODUS 


SHIFT-C= 


SHIFT-C= 


Aus 


E 


I 


N 


ursor nicht am rechten randı -" 


36706 
I6708R 
So7il 
38713 
56715 
536717 
56725 
36722 
56724 
36726 
56729 
367297 
36727 
56729 
56732 
56733 
56737 
56749 
56742 
36744 


336647 


ag66ss 


as6ss2 


Elsf-1efer.) 


asob7l 


agosrl 


as67a2 


ase7ıl 


a36720 


a65299 
#251 
a632997 


#32 
asahs2 
339769 


ı #a205 


as6671 
#64 
a3537753 


#20 
a36782 


ı *a207 


ag6b6dh 
#17 
a36587 
#18 
ass&91 
#0 
*2194 
#297 
336694 
#197 
336702 
333433 


#2 
as6711 


336720 
#5 
als4a 
#14 
336658 
#128 
a9s3se 


ag6604 
as7334 
a36733 
a2924 

336764 


x #a205 


Aa A rang Nat a a a u az ae 


a: Ga Ra u Aa an; an u AR Ne En ae aaa am 


ey ae 


nn a ER A an: Ka 


198 > S4A46358 


SHIFT-ZEICHEN 


bit 7 löschen 
war es kode 255? 
nein: -} 


; durch kode 94 (= 222-129} ersetzen 
.steuerkode? 


jas -> 
---> zeichen ausgeben, abschlu 


quote-modus gesetzt? 

nein: -> 

bit & setzen 

---} zeichen rvs ausgeben, abschlu 


’insert’? 

jas —> 

insert-zähler aktiv? 
ja: -> 

”’kursor nach oben’? 
jas -> 

’rvs off’? 

nein: -> 


rvs-flag löschen 
”kursor nach links’? 
jas > 

’clear””? 

nein: -> 

---> bildschirm löschen 


"blinken ein’? 
nein: -> 


blink-flag setzen 
"blinken aus’? 


u 


nein: -" 


blink-flag rücksetzen 
’graphik-modus””? 

jas => 

bit 7 wieder setzen 

---> wenn farbkode, ausgeben 


BELETE 


> kursor nach links 

---} kursorposition retten 
kursor in hoame-position: -> 
kursor am rechten rand? 
nein: > 

kursorzeile 

vermindern 


567539 
36753 
367533 
36737 
56757 
36761 
36764 
36764 
56767 
36778 
56773 
36776 
56779 
36782 
56782 
56782 
56782 
56795 
36788 
56795 
36792 
536794 
38796 
536797 
S6Bel 
36904 
56887 
I6819 
36813 
S6oBl& 
56818 
56828 
56822 
36924 
36926 
56927 
Sag31 
36833 
568353 
36838 
36838 
56838 
36838 
569348 
36841 
568473 
56845 
56847 
36848 
368497 
56832 
36853 
56956 
36837 


a57147 
a36764 
a57343 
*a204 
*a202 
*+3254 
*a205 
as59464 


336733 


a37279 
a37135 
a37308 
a37361 
a37277 
236737 


336764 


a37334 
as7237 
ı *a254 

a56774 
*a204 

a54829 
355899 
as56835 
257308 
a57135 
a57279 
as37361 
a57300 
*3205 

*+2254 

assgo1 
+2204 

agsßpl 
a57343 
+a207 


336794 


as6sal 


#65 

#23 
a5349857 

asl a 
assg5s+1,x 
agsggTg,x 


356357 


aa ae a am 


EEE ER a A EL EPPEERREEPF 


. 


BREPT EEPPEEPT BERBEEPT 


---> getbit: zeilentabelle 
zeilenbit gesetzt: -: 
---} blank ausgeben 


kursorspalte wiederherstellen 


kursorzeile wiederherstellen 
---} kursorzeiger setzen 


> kursor nach rechts 

zeichen vom bildschirm lesen 
---> kursor nach links 

---> zeichen auf bildschirm schreiben 
kursor nach rechts 

zurück zum schleifenanfang 


EB 


> 
INSERT 


---: kursorposition retten 
---} kursor an zeilenende 
insert vor zeilenende? 


nein: -? 

scroll ab, wenn zeilenende 

l gesperrt: -> 

kursor nach links 

eichen vom bildschirm lesen 
kursor nach rechts 

zeichen auf bildschirm schreiben 
kursor nach links 
ausgangsposition erreicht? 


scrol 


nein: > 

---> blank schreiben 

insert-zähler inkrementieren 

jedoch nicht über 255 

> kursorposition wiederherstellen 


ESC-SEQUENZ 


bit 7 löschen 

kode 

in bereich (B,...,22) verschieben 
bereich überschritten? 

ja: fertig -> 

offset in tabelle erzeugen 


h,routinenadresse 
Tamein 


routine aufrufen 


- 56858 
I6868 
36862 
56854 
36966 
S6B68 
36878 
56972 
56874 
36976 
56378 
56830 
36882 
56384 
36886 
56888 
36878 
36892 
36894 
56976 
56878 
San 
36902 
36704 


3694 


So7@a4 
36794 
36767 
Sorıa 
se6r12 
56913 
349716 
56718 
36720 


336958 


ass?a4 


336744 


a36954 


a37129-1 
a36928-1 
a57126-1 
a36992-1 
a36957-1 
agS6857-1 
a36957-1 
a3S6857-1 
a356971-1 
as7219-1 
3372371 
a57117-1 
a57120-1 
ass432-1 
a56475-1 
asS7857-1 
a37035-1 
aje9n4-1 
a356957-1 
as6F26-1 
a36957-1 
a37979-1 
a57992-1 


256944 
230435 
#1 


a36754 
#25 


» #38 


a36935 
a33459 


 *2202 


+a205 
336954 


um VOLLEN 


#24 


x #39 


236935 
#0 


Aann 
azl2z 


" aaa2E 


esc-a auto-insert ein 
bildfenster ende 
auto-insert aus 
zeile löschen 

rts 

rts 

rts 

rts 

zeile einfügen 
kursor an zeilenanfang 
kursor an zeilenende 
scroll freigeben 
scroll sperren 
normaler bildschirm 
flags löschen 

zeile links löschen 
zeile rechts löschen 
rand um bildschirm 
rts 

bildfenster anfang 
rts 

scroll auf 

scroll ab 


Aus au oo 53 3-rur yaınanog 


Z<E 


BILDFENSTER N41T R&ND 


> vollen bildschirm herstellen 
> bildschirm löschen 


---> bildfenster anfang 


> bildfenster ende 
> home 


TE BILBFENSTER ANFANG 
G=Bs: BILBFENETER ENDE 
; kursorspalte 

; kursorzeile 

; unterer rand 

; rechter rand 

ı 77-> zeilentabelle löschen 
BILDSENIRM HERSTELLEN 


gröte zeilennummer 

gröte spaltennummer 

---} =: unterer und rechter rand 
kleinste zeilennummer 

kleinste spaltennummer 

oberer rand 

linker rand 
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36960 
56962 
36964 


36971 
56974 
36977 
56978 
369781 
36982 
36985 
36986 
569788 
56989 
S6971 
36992 
36992 
56992 
369972 
56995 
369978 
56997 
37901 
57004 
57907 
37068 
57910 
37013 
37016 
37917 
57928 
379023 
37025 
57026 
57829 
37038 
37032 
37935 
37035 
37035 
37035 
37038 
37041 
57043 
37046 
57649 
37952 
57054 
37997 
37057 
37857 
37957 
57068 
37063 
57066 
57068 
37071 
37973 
57476 


a569768 


356964 


as69771 


asor7i 


a36972 


a37035 
a357038 


a57954 


a37057 
as7b60 


a57973 


lda 
ldx 
sta 
dex 
bne 
rts 


a35902 
a35457 


a37147 


a37158 


aso971 


*al976 


a37223 


a2022 


*3205 
32022 
a2028 


#128 


a2028 
as5s9766 


*al96 


a37334 
as6d6l 
*a205 

a55464 
a2023 

a37145 
as37938 
a56753 


a37343 
a2023 

a37873 
as7145 
337054 
a37300 
a37060 


ESC-Q: 


PURE TU ZEPPEES T EEPPEEIT ZERPEErT 


zeilentabelle löschen 


sGt=TI#= ZEILE EINFÜGEN 


---> scroll ab 

---}> kursorzeiger setzen 
zeilenzeiger erhöhen 

---} getbit: zeilentabelle 


---> putbit: zeilentabelle 


x 


zeilenbit war gesetzt: -> 


flag für "ganze zeile’ setzen 


ESE=-D=: ZEILE LSöSCHEN 


---" kursor an zeilenanfang 
erste bildfensterzeile 
merken 

kursorzeile 

=: erste bildfensterzeile 
scroll flag 

merken 

log scroll 

einschalten 

---}> scroll auf 


scroll flag wiederherstellen 
gelöschte zeile 
=: kursorzeile 


erste bildfensterzeile wiederherstellen 


flag für ”ganze zeile’ setzen 
---} kursor zeiger setzen 


ZEILE RECHTS LSSCHEN 


---> kursorposition retten 

---> zeile ab kursor löschen 
kursorzeile erhöhen 

---}> kursorzeiger setzen 

linker rand 

---> getbit: zeilentabelle 

zeilenbit gesetzt: -" 

---> kursorposition wiederherstellen 


ZEILE LINKS L&SöSCHEN 


> kursorposition retten 
---> blank ausgeben 
linker rand erreicht? 
nein: -> 
---> getbit: zeilentabelle 
zeilenbit nicht gesetzt: -} 
---}> kursor links 
immer -} 


Seite 202 57078 


ET 2 a mn a nl tn nn nn nn ESCt=-V: SGCROLL AUF 
57978 

57078 a37678 jsr a57334 3 > kursorposition retten 

57081 txa 

37082 pha 

37083 jsr a53945 35 => scroll auf 

57686 pla 

37087 sta #3254 ; kursorzeile ; 

570897 jnp 337054 } 77-> kursorposition wiederherstellen 
537092 

az je ESEC-k: SEROLL AB 
57092 

57092 a57092 jsr a373234 3 ———-> kursorposition retten 

579095 jsr a53S7145 5 7-> getbit: zeilentabelle 

57998 bes 357103 ı zeilenbit gesetzt: -> 

57186 sec 

s7ı01 ror #a1l95 ; flag für "ganze zeile’ setzen 

37103 a57103 1lda a2022 ; oberer rand 

57186 sta #3205 s =: kursorzeile 

57188 jsr a55962 ; > scraoll ab 

57111 jsr 357162  -—-> clrbit: zeilentabelle 

57114 jmnp a57954 3 => kursorposition wiederherstellen 
57117 

iT pe ESt-Eer SERULL FREIGBGEBEN 
57117 

57117 a57117 Ida #0 

57119 by 44 

57120 

Bra ee ——— ESE-M SEROLL SPERREN 
57120 

57120 a5S7126 1da #128 

57122 sta a2025 

57125 rts 

57126 

a nn ESEt-CG: AUTO-INSERT Aus 
57126 

57126 a57126 Ida #6 

57128 by 44 

37129 

Ba ESC-A: AUTO-INSERT EIN 
57129 

57129 a57129 1Ida #255 

57131 sta 32026 

57134 rts 

57135 

32138 Bm ZEICHEN vom BILDSCHIRM LESEN 
57135 

37135 a57135 1dy *%a262 i kursorzeiger 

57137 lda (a234),y ; farbkode 

57139 sta a2629 

57142 lda (a2eB),y ; zeichen 

57144 rts 

57145 

57145 3--- ZEILENTABELLE 

57145 

57145 3 getbit 

57145 

57145 a57143 1dx *a295 ; kursorzeile 

37147 a57147 jsr a57190 3 ---} bitposition erzeugen 

371390 and a2830,x ; mit bit-tabelle maskieren 

537153 cap #1 ; gesetztes bit setzt carry 


3 =} ausgang 
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203 5s7’158 


37158 
57168 
57162 
57162 
57162 
57162 
57165 
537167 
537179 
37173 
537176 
37177 
37177 
57177 
537177 
57188 
37182 
57185 
37188 
37190 
37198 
371905 
57190 
537193 
57194 
537196 
57197 
537200 
57201 
37204 
57205 
37206 
37287 
37208 
37209 
57218 
57210 
537218 
57218 
57218 
537218 
537221 
37223 
37226 
37228 
537230 


37232 


37234 @ 


37237 
37237 
537237 
3723 

37239 
37242 
57244 
37246 
57249 


37252 


a57158 
au7160 


’ 


as37162 


as7178 
a57173 


a3S7177 


a57198 


as721d 


*a205 
a37177 


a37198 
#255 
a2oFo,n 
a2aad,H 
a745 


a2025 
as37147 
as719& 
a2a3d,x 
as7179 


ı a745 


#7 
357218, 


a745 
E 
a 
a 


a2023 
*a2n2 
a571453 
a57234 
#a205 
as722E 
+a205 
ays464 


#a205 
as37145 
as37237 


 *a205 


a59454 
aaa 
*+a202 


x 


ı kursorzeile 
s cs: setbit, cc: celrbit 


eirbit 


---} bitposition erzeugen 
alle bits flippen 

mit bit-tabelle maskieren 
in tabelle zurückspeichern 
byte-offset in tabelle 


ne ar 


setbit 
; scroll freigabe 
;ı bit 6 gesetzt: -" 
} 707: bitposition erzeugen 
; mit bit-tabelle odern 
5 immer -} 
bitposition erzeugen 
ı kursorzeile 


; modulo 8 


bitwert holen 


i kursorzeile 
dividiert durch 8 


; byte offset in tabelle 
bitwert 


i" ; kitwerte 


C-J: KURSODR AN ZEILENANFANS 


linker rand 

ı =: kursorspalte 

---:> getbit: zeilentabelle 
zeilenbit nicht gesetzt: -> 
kursorzeile erniedrigen 

war noch nicht die erste zeile: -> 
auf erste zeile erhöhen 

---} kursorzeiger setzen 


KURSOR AN ZEILENENDE 


ı actuelle zeile erhöhen 

3 -—-> getbit: zeilentabelle 
 zeilenbit gesetzt: -" 

; kursorzeile erniedrigen 

3 00: kursorzeiger setzen 

’ rechter rand 
; =: kursorspalte 


37254 a537254 jsr a37135 5 ==> zeichen vom bildschirm 
537257 cmp #” ; leerstelle? 

537259 bne a57276 iı nein: -> 

57261 cpy a2623 ı linker rand erreicht? 
37264 bne a57271 s nein: -> 

37246 jisr a57145 3 0} getbit: zeilentabelle 
37269 bec 257276 ;s zeilenbit nicht gesetzt: -> 
37271 357271 jsr 357300 } 77} kursor links 

37274 bec 257254 ; kursor nicht in home-position: -> 
37276 357276 sty #a195 ı position des letzten zeichens 
57278 rts 

57279 

GE EN de nn nn nn KURSOR RECHTS 
37279 

57279 a57279 pha 

37288 ldy #a262 ; kursorspalte 

37282 cpy a2824 ı am rechten rand? 

37285 bec 357295 s nein: -> 

37297 jsr a55841 } 777: neue zeile 

537296 ldy a2623 ; linker rand 

537293 dey 

37294 sec 

37295 a37295 iny 

37296 sty #a202 ; kursorspalte 

37298 pla 

37299 rts 

57309 

97300 I—m——— nn KURSOR LINKS 
37300 

57300 a57300 1ldy *a202 ; kursorspalte 

57392 dey 

373053 bmi a57310 i kursor war in spalte & -> 
37305 cpy a2a23 sı linker rand erreicht”? 
57308 bes a537327 ;s nein: -> 

57310 a57310 1ldy a2022 ;i oberer rand 

57313 cpy #3205 ı = kursorzeile? 

57315 bes 257333 ı jes fertig -> 

37317 dec #a205 ı kursorzeile erniedrigen 
37319 pha 

57320 jisr 355464 3 => kursorzeiger setzen 
37323 pla 

372324 ldy 22024 ı rechter rand 

37327 a537327 sty *#a202 ; =: kursorspalte 

537329 cpy a2a24 ; rechter rand 

37332 elc 

537333 a57333  rts 

57324 

vH KURSERPDSITIUN RETTEN 
37334 

37334 a57334 ldy *a202 ; kursorspalte 

37336 sty #a204 

37238 ldx *a205 ;ı kursorzeile 

37240 stx #3254 


537342 rts 


RILDSCHIRM SCHREIBEN 


37343 a57343 1da #32 
37345 337345 1dy *a282 


57347 sta (a2oa),y 

537249 jsr 335476 5 —--> zeiger in color-ram setzen 
37352 lda 21339 ; color 

373553 ora al34 

57358 sta (a234),y 

37360 rts 

57361 

37361 a57361 1ldy *a262 

37363 sta (a200) ,y 

37369 jsr a33476 3 --> zeiger in color-ram setzen 
37368 lda a2629 

37371 sta. (a234),y 

37373 rts 

37374 

Ra N nn Sn Zn TASTENKBDBE-TABELELEEN 
537374 

37374 a57374 „si a37382 ; kode-tabelle 1: taste allein 
37376 ‚si 3537447 h 2: shift + taste 
537378 si a37512 3 3: [= + taste 
57390 ‚si a37577 H 4: ctrl + taste 
37382 

57382 aS7382 „by 28 13 92 148 133 137 134 64 51 87 

37392 „by 65 52 96 83 69 1 53 82 58 54 

37402 «by &7 70 84 98 55 99 71 56 66 72 

57412 „by 85 86 57 73 74 49 77 753 79 78 

57422 ‚by 17 890 7& 145 46 58 45 44 157 42 

37432 „by 59 29 27 61 43 47 49 19 4 5% 

57442 ‚by 32281 3255 

57447 

57447 a57447 .by 148 141 169 136 138 135 139 1986 35 215 

537457 „by 193 36 218 211 197 1 37 Z10 196 38 

37467 “by 195 198 212 216 39 217 199 40 194 209 

57477 „by 213 214 41 261 202 94 205 263 207 206 

537497 „by 17 208 204 145 62 91 221 68 157 192 

537497 „by 93 29 27 95 219 63 33 147 4 34 

37397 ‚by 160 2 269 151 259 

57512 - 

57512 a57512 „by 148 141 168 156 139 135 139 164 156 179 

37522 “by 176 151 173 174 177 1 152 178 172 153 

37532 ‚by 188 197 163 199 154 193 165 155 191 198 

537542 .by 184 190 41 162 181 48 167 161 195 179 

37552 „by 17 175 182 145 62 91 226 66 157 223 

57562 ‚by 93 29 27 222 166 63 129 147 4 149 

37372 „by 166 2 171 131 255 

57377 

37577 a575377 ‚by 255 255 28 255 255 255 255 255 28 23 

37397 ‚by 1 159 26 19 5 255 156 18 4 58 

57597 ‚by 5 & 20 24 31 25715982 

37607 „by 21 22 198 9 18 146 13 11 15 14 

37617 “by 255 16 12 255 132 27 255 130 255 255 

537627 „by 29 255 27 6 255 255 144 255 255 5 

37637 ‚by 255 255 17 255 255 

57642 

Era ui RUN-TERT 

57642 


a37696 
a57688 


a57703 


a57719 


a57745 


a537750 


a37759 


.by 144 5 28 159 155 30 Z1 158 129 149 ; farbtasten-kodes 
‚by 158 151 152 153 154 155 


a 115 50 99 68 55 70 119 72 41 
95 107 92 109 46 95 


44 


#4001600009 


*a148 
a37793 


*aldb 
a37729 
*a148 
taldd 


*a149 


338054 
358947 

*al 
#/00000100 
#al 


2598047 
258054 
339076 


a58054 
asan68 
as37833 
as58040 
*alb6 
a37759 
a59068 
a37745 
*al 
*al 
a57759 
a 
a57759 


wu we “ 


RL”) 


er 


ee 


Ka a MR ME an a nn an 


; farbkodes 


TALK 


talk-bit 


LISTEN 
listen-bit 

c3pß: byte im puffer? 
nein: -> 

---> byte ausgeben 


pufferflag rücksetzen 


geräteadresse mit talk-/listen-bit 
bus-ausgabepuffer 


---> data ® ausgeben 
---> clock 1 ausgeben 


---} clock 1 ausgeben 
* data © ausgeben 
---> 1 ms warten 


BYTE AUSGEREN 


---> data ® ausgeben 

---} data eingabe 

data 1 empfangen: device not present -> 
---> clock ® ausgeben 


---> data eingabe 
data 8: warten -> 
eingabe 

verändert? 

ja: warten -> 

data 1 empfangen? 

ja: warten -> 

---> data eingabe 
data @: warten -> 
---> clock 1 ausgeben 


bitzähler setzen 
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57771 357771  jsr 3598068 ı 70: data eingabe 


37774 bec 257838 ; data & empfangen: timeout -> 
37776 ror *#a149 ; datenbyte ins carry rotieren 
57778 bes a57785 ; bit gesetzt: -> 

57780 jsr 258661 5 => data 1 ausgeben 

57783 bne 357788 ı immer —> 

57785 


37785 a57785 jsr 3398054 
37788 a577988 jsr a58129 


---> data ® ausgeben 
---> ZB us warten 


nen 


3771 jsr a59049 ---> clock ® ausgeben 
37794 jsr a59129 ---} 20 us warten 
37797 lda *al 

57799 and #%411111116 ; data & 

57801 ora #700008019 s clock 1 

57903 sta *al ; ausgeben 

37905 dec #a170 ; bitzähler dekrementieren 
57897 bne a57771 s noch bits auszugeben: -> 
37909 txa 

578108 pha 

s781l ldx #128 i zeitschleife ca, i ms 
57813 a57813 Ida *al 

37815 cmp *al ; stabilität abwarten 
37817 bne 357813 

37819 asl a ; data @ empfangen? 
37820 bcec a57829 ı jar ok -> 

57822 dex ; wartezeit vermindern 
37923 bne a578B13 ; zeit noch nicht abgelaufen: warten -> 
37825 pla 

37826 tax 

37827 bcs 357858 s timaut -> 

37829 

37829 a57829 pla 

57830 tax 

37831 cli 

37932 rts 

37833 

379833 a57833 Ida #128 ; "device not present” 
57835 jmp 357840 ı == 

57838 

579838 a57938 Ida #3 ; "timeout’ 

57840 a57848 jsr a62494 ı -—--> in status bringen 
57843 eli 

57844 eleE 

57845 bec a57922 

57847 

DT SECOND 

537947 

57847 a57847 sta #a149 ; sekundäradresse in bus-puffer 
37849 jsr a37719 } => byte ausgeben 
57852 a579332 Ida *#al 

57854 and #411111011 i ’atn’ 

57956 sta *#al ; ausgeben 

57858 rts 

37859 

BI —— TKSA 

57959 

57857? a57859 sta #a149 ; sekundäradresse in bus-puffer 
57861 jsr a57719 1 777} byte ausgeben 
37864 bit *a144 ; status 

57366 bmi a57922 » device not present: — 
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37868 a57868 sei 


57869 jisr a59961 5 ---> data 1 ausgeben 
57872 jsr 357852 3 -7-> ”atn’ ausgeben 
37975 jsr 358049 3 ==> clock @ ausgeben 
37878 a57878 jisr 258068 3 > data eingabe 
57881 bmi 257878 ; data 1 empfangen: warten -> 
57893 cli 

57884 rts 

37885 

BZ ee CIOUT 

57885 

57885 a57885 bit #a148 ; byte im puffer? 

57897 bmi 357894 ı jaı —> 

57899 sec 

37890 ror *a148 i pufferflag setzen 
57892 bne 257899 s immer > 

57894 

37894 a57894 pha ; datenbyte merken 
37995 jsr a57729 3 > byte aus puffer ausgeben 
37898 pla ; datenbyte 

537899 357899 sta *a149 ı in puffer 

537981 ele 

57902 rts 

37903 

2905 pn UNTALK 

57903 

37903 a57963 sei 

5379704 isr 3538647 5 => clock 1 ausgeben 
537987 lda #s1 

37999 era #400090100 ı "atn” 

s7911 sta #al ; ausgeben 

57913 Ida #95 : "untalk” 

37915 bre a57919 

37917 

Ba UNLISTEN 

57917 

537917 a57717 1da #63 "unlisten’ 


57919 257919 jsr 357688 
37922 a37922 jsr 357852 
57925 357925 tra 


---} talk/listen 
---}> "atn’ ausgeben 


37926 ldı #26 ı zeitschleife ca, 5% us 
37928 357928 dex 

37929 bne 3537928 ; warten > 

57931 tax 

37932 jisr 338640 3 => clock ® ausgeben 
57935 jap a39054 i 0? data & ausgeben 

579738 

a ACFPTR: BYTE EMFFANGEN 
37938 

37938 357938 sei 

37939 lda #6 

37941 sta #al78 ı endeflag rücksetzen 

37943 isr ‚a58940 } => clock ® ausgeben 

57744 ya 

57947 pha 

57948 a57948 jsr a58068 ---} data eingabe 

57951 bpl 2537948 data ® empfangen: warten -> 


zeitschleife ca. 250 us 
---> data ® ausgeben 


37953 a37953 1Idı #32 
37955 jisr 2539054 


we ne 
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37958 a57758 1da *#al 


37968 cmp *al 

57962 bne 357958 ; stabilisierung abwarten 
57964 asl a 

37965 bpl 257998 ; data Ö empfangen: -> 
37967 dex ; wartezeit vermindern 
57968 bne a57958 s zeit noch nicht abgelaufen: -> 
37979 lda *a178 ; endeflag gesetzt? 

37972 beq a57981 s nein: -> 

37974 pla 

37975 tax 

357976 lda #2 ; ”read timeout” 

57978 jmp 357840 3 -—-> in status 

57981 

37981 a57981 jsr a5806l i ---: data 1 ausgeben 
579784 ldx #64 ; zeitschleife ca. 160 us 
57986 a57986 dex 

37987 bne a5798&4 ı warten -> 

37989 lda #%491000580 s eoi-bit 

3791 jisr a62494 5 ---> in status 

57994 inc *a178 ; endeflag setzen 

37996 bne a57953 s immer -} 

57998 

37998 a57998 1Idı #8 ; bitzähler 

SBhBB a58008 Ida *al 

58002 asl a clock 1 empfangen? 
S300F3 bpl a58anao ; nein: warten -> 

58005 ror *a168 ; data in eingaberegister rotieren 
=9607 259097 Ida *al ; datapaort 

S8007 cmp *al 

Ssao1l bne 258807 ; stabilisierung abwarten 
58013 asl & 

sa014 bmi 259097 i clock 1 empfangen: warten -:> 
53016 dex ; bitzähler erniedrigen 
58017 bne a58000 s noch nicht #: -> 

593019 stx #217 :i eingabeflag 

58021 pla 

S8022 tax 

38023 jisr a58d61 3 > data 1 ausgeben 
5826 lda #64 ı ??? sinnlos! 

58028 bit #*a144 ; status 

8030 bvc a58935 s eoi-bit nicht gesetzt: -> 
S39032 jsr a37925 3 ==> nach S® us data ®, clock @ ausg 
58035 a38055 Ida *a169 ’ empfangenes datenbyte 
38037 eli 

S80I8 elc 

58059 rts 

58040 

SBO4R 5----------- BUS-AUSGABE 
580405 

58040 a59046 Ida *#al 

38042 and #%111111@1 ; clock 8 

58044 sta *al 

58046 rts 

58947 

393047 258047 1da *#al 

53249 ora #7a0009910 s clock 1 

SsBesl sta #al 


58053 rts 


53093 
38995 
59998 
sg1ao 
58103 
53184 
58104 
S81B6 
58188 
38108 
s8119 
Sselll 
58112 
58113 
S9115 
58118 
58119 
58122 
59124 
539127 
58128 
591297 
581297 
59130 
59132 
58133 
39135 


53136 


a58054 


as8d61 


a58068 


a39976 


assoal 


338090 


358095 


a59194 


asa1l98 
ase11o 


as58129 


asal32 


*al 
#411111118 
*al 


*al 
#700000001 
*al 


a58194 
#700010000 
365287 
asseal 
a635287 


a58198 
#700010000 
a65289 
a39095 
3652897 


#4 


as8ll9d 


#64 


a63283 


a #008 LOHOD 


as32897 


x» #5 


assilzz 


3 


. 


A an nn 


data 8 


data 1 


BUS=-EMNFFANSE 
data-port 

stabil? 

nein: warten -> 

carry := data, bit 7 = clock 
ZEITSCHLEIFEN 


---> timer setzen und starten 


timer abgelaufen? 
nein: warten -> 


---> timer setzen und starten 


timer abgelaufen? 
nein: warten -> 


4 * 256 zyklen 


64 * 256 zyklen 


l,timer 
TER 


timer starten 


wartezeit 5#5+12 zyklen = ca. 


(1 ms) 


(16 ms) 


18 us 


as8137 


a58139 


258180 


ass1r1 


as58210 
asgzil 


as8z212 


as58232 


a38253 


: einsprung bei save 


36 

; einsprung bei load 
a64784 ; play-taste am recorder 
#4 
a59218 ; gedrückt: -> 
a64472 3 => meldung ausgeben 


13 "press play ’ & 


load: -> 
---> meldung ausgeben 


a3581898 

364472 

’% record ° ® 
a64472 3 ---> meldung ausgeben 
"on tape’ ® 

3644597 3 > stoptaste gedrückt? 
asg211 ı Jar —> 

a64784 ı play-taste am recorder 
#4900001606 ; gedrückt? 

assı1 s nein: warten -# 

364472 ; => meldung ausgeben 

13 "ok” 8 


PEST) 


Te KASSETTENPORT EINSCHALTEN 


ı a65286 


#4711101111 
365286 
365290 
#/11111101 
#700001998 
a63270 


44 KASSETTENPORT AUSSCHALTEN 


a652B& 
#700010008 
a632B6 
363296 
#411110111 
#700008019 
a652978 


ZAmmm MOTOR EINSCHALTEN 


a2044 ; motor-flag setzen 
#al 

#411110101 

*al ; einschalten 

#30 


39387 
39308 
39319 
38312 
58314 
59316 
38317 
58318 
59318 
s3318 
39318 
s8321 
38323 
39326 
39327 
39332 
38333 
539333 


33337 


58346 


38340 5 


58340 
593340 
39343 
598346 
585348 
539338 


a5a070 


a39266 


; "c1984commodore’ 


a58288 *al 


*al 


a58295 #0 
pr 
358299 (al92),y 
#192 
259299 


asg3d7 
#1,2819 
*a192 
#h,a819 
ı #al83 


364459 
359339 
358288 
358232 


al992 


as9318 


#9 
a1982 


338337 


a65289 
ab3290 
#400001809 
a58351 


ase340 


’ 


KASSETTENPUFFER 


PUFFERZEIGER 


ABBRUCH 


> 16 ms warten 


insgesamt ca. 0.3 s warten -> 


AUSSCHALTEN 


LÖSCHEN 


INITITALESTENEN 


DURCH STOFTASTE 


---* stoptaste gedrückt? 

nein: -> 

> motor ausschalten 
kassettenport ausschalten 
stackzeiger 

wiederherstellen 


Z 


RK BETZEN 


li wenn timer a abgelaufen 
= I wenn kassettenport eingesch 


De 


58351 
598354 
58355 
59357 
583640 
58562 
58365 
58348 
58369 
58379 
59371 
58371 
58373 
58376 
59378 
58581 
58383 
58386 
59397 
58397 
58387 
58387 
58388 
598399 
58598 
sg3H1 
58394 
59397 
58400 
58403 
58405 
58408 
58419 
58413 
58416 
58419 
58421 
58423 
58425 
58426 
58429 
58430 
59433 
58436 
584389 
58439 
598439 
58439 
58439 
58441 
58444 
59444 
58449 
58450 
59459 
59452 
58455 
58457 
59468 


assssl 


as8s7l 


a38597 


asg390 
ag 


a39405 


as84397 


a3e450 


a65289 


#1, 13200 
a632890 
#h, 13209 
a65281 


ı a1993 


#1,18600 
365280 

#h, 18500 
365281 
#7.00001000 
365289 


asssrl 


31994 


ı a1995 


a1972 


ı a1995 


#7000 10000 
a653287 
a58405 
a63282 
a65283 
a63289 

*al 
#700000210 
*al 


a58319 


31994 


ı 31995 


asg37a 


#1, 208 
a1992 
#h,208 
al993 


PPRIEFT\ 


a Aa 


E77 


timer starten 


13.2 ms 
l,timer a 


Hyeer 


timer starten 


PULS SCHREIBEN 


timer b abgelaufen? 
nein: warten -> 
l,timer b 

Muss 

timer b starten 


datenpegel flippen 


---> abbruch, falls stoptaste gedrückt 


cs: einmal wiederholen -> 


ZEITEN DSETZEN 


846 us 


208 us 


38508 
58518 
39512 
58515 
53718 
33520 
58522 
39724 
39527 
39730 
S9T33 
38333 
3536 
39337 
38537 
539342 
58544 
39347 
ala beta) 
33330 
38333 
8534 
58354 
38334 
39334 
38333 
393338 
38560 
58562 
533564 


asB46l 


as8472 


a38494 


as9496 


aussag 


as8333 
asasıs 


asgssn 


#1,420 
a1992 
#h,426 
a1993 


as58461 
a38387 
a39450 
a38397 


a38439 
338387 
as8461 
as93837 


as9336 
a39484 


a59326 
al969 

ass 
3393472 
a39333 


a3S9494 


» a1982 


*al 


as8450 


s 420 us 
BIT ® SCHREIBEN 
H laden (268 us) 
5 schreiben 
H laden (420 us) 
H schreiben 


u a 


Pre 


en 


STA 


1 SEHREIBEN 


laden 


laden 


(420 us) 


schreiben 


(Z68 us) 


puls schreiben 


RTRIT 


---: zeit laden 


BYT 
daten 


byte- 


SCHREIBEN 


(846 us) 


> puls schreiben 
: zeit laden 


(422 us) 


puls schreiben 


E SCHREIBEN 


byte 


parity 


> startbit schreiben 


datenbyte ins carry rotieren 


bit = 
parit 


is 5 
y erhöhen 


> bit ® schreiben 


---} bit 1 schreiben 
schon B bits geschrieben? 


nein: 
parit 


y 


6 schreiben 


schreiben 


stack-zeiger merken 


daten 
hoch 


ausgang 
legen 


zeit laden 


(Zug us) 


58567 ldy #1 

39569 sty a65203 ; h,timer b 

58572 lda #4080 10000 ; timer b starten 

538574 sta a65289 

85377 bit *a247 ; 2. pass? 

5385379 bpl 358585 I jas > 

59581 ldy #64 

58I8I ldx #254 

38585 a58385 jsr a38387 3 -7-> puls schreiben 

S8588 dex ı 64 * 254 pulse von je 268 us 
58589 bne a59595 ; ergeben mit ebensalangen pausen 
s8s71 dey ; einen vorspann von ca. 6.8 5 
38592 bne a58585 

85974 ldy #9 ; nach dem vorspann folgt ein 
58596 a58396 tya » "countdaown’ 9, 8, seı, 1 
38597 ora #a247 » im 1. pass ist bit 7 gesetzt 
585997 jsr a58508 } => byte schreiben 

98602 dey 

Ban bne a38396 

58405 j ldy #0 

32507 sty #a245 s block-parity initialisieren 
9669 lda #a248 r filetyp 

SB6ll beq aö9h22 } = Gr nicht schreiben -> 
SBALT eur *a245 

58615 sta #a245 ı block-parity berechnen 
59617 lda #2248 ı filetyp 

58619 jsr a39508 } ==} byte schreiben 

SBarEr a58h22 Ida (alB6),y ı datenbyte 

53624 pha 

58623 eor #a245 } block-parity berechnen 
58627 sta #a245 

19629 pla 

Sah30 jsr a58308 } 7: byte schreiben 

58633 inc *a18& ı quellzeiger erhöhen 

58633 bne a58639 

59637 inc #3187 

58639 3598637 inc alall ; byte-zähler erhöhen 

53642 bne al8a22 

393644 inc aldl2 

58647 bne a58622 

58649 lda *%a245 } block-parity 

58451 jsr a59I08 3 =o-: byte schreiben 

59554 isr a58461 ı- zeit laden (420 us) 
59637 jsr 358397 } =? puls schreiben 

58668 jsr a98430 } oem zeit laden (DUB us) 
IBhhT lcy #1 

39665 ld #194 

38667 3539667 jsr 3383897 5 ==> puls schreiben 

39670 den » 194 * 2% ZB us = 96 ms 
28671 bne 339667 ı nachspann 

SBh73 dey 

58674 bne 3539667 


38676 rts 


598677 259677 


58692 a59692 


39725 339723 
39726 259726 


38768 a58768 


393797 359797 


jsr 
jsr 
jsr 
bes 
ida 
sta 
lda 
sta 
lda 
sta 
lcda 
sta 
Ida 
sta 
jsr 
bes 
lda 
bpl 


*3187 
#1,63345 
alaıl 
#h,65345 
al®12 
a38554 
339725 
*3247 
a39725 
#0 

*2247 
a353692 


a58288 
a39232 


FÜFFER 


HEADEREBELBCK 


asg397 
a39293 
#0 

*a178 
(a182) ,y 


*a179 
(alg2),y 


*3157 
(a182),y 


*a1l58 
(a182) ,y 


al971 
#0 
al970 
a1978 
*a171 
as39797 
#a175 
azals 
a2009 
al97ı 
(al82) ,y 
al978 
al971 
358768 


a38677 


we 


AUF 


BAND SCHREIBEN 


---> play-taste prüfen ggf. anfordern 
---: kassettenport einschalten 


---: motor 


einschalten 


stoptaste gedrückt: -} 


1. pass 


pufferanfang 
in quellzeiger 


65345 = 65536 - pufferlänge 191 
in byte-zähler 


—-}+ BlOck 


fehler: -> 


1. pass? 


nein: > 


---> motor 


schreiben 


ausschalten 


---> kassettenport ausschalten 


AUF 


BAND SCEHREIREN 


---> pufferzeiger initialisieren 


kassettenpuffer läschen 


l,anfangsadresse 


in puffer 


h,anfangsadresse 


in puffer 


l,endadresse 


in puffer 


h,endadresse 


in puffer 


offset in puffer 


offset in filenamen 


fnlen 


filename zu ende: -> 


l,fnadr 


" 


---: Ida (al,ys zeichen aus filename 


in puffer 


offsets inkrementieren 


---: weitermachen 


-—-} block 


auf band schreiben 


= SPEICECHERBEREIEH 


a59900 


as8alS 


a399537 
a59353 


a38864 


a39974 


a38877 


358973 


358897 


jsr 
jsr 
jsr 
bes 
lda 
sta 
lda 


a59137 
a59212 
a58253 
a58858 
#129 
*3247 
*a178 
+a1B& 
*al79 
*a187 


*a157 
*al78 
#255 
al®ıl 
*a158 
*a179 
#255 
ala12 
3535534 
a38858 
*a247 
338857 
#0 
*+a247 
as58815 


a38288 
a38232 


as8295 
#5 
+a248 
a538677 


&4 @ 128 


ı al976 


a1977 
a1979 


a19778 


#7400010099 
*al 

asa39F 

*al 

a58897 


{ a63282 


a&5293 


3653284 


a63285 


PPEE EEE 


PFPEEFFEPRPREPT: 


PAPER? PEPRPBEFT, 


. 


u 


AUF 


---> play-t 
---} kasset 
---> motor 

stoptaste q 


1. pass 
anfangsadre 
in quellzei 


ende des sp 
- anfangsad 
invertieren 


BAND SCHREIBEN 


aste prüfen ggf. anfordern 
tenport einschalten 
einschalten 

edrückt: -> 


sse 
ger 


eicherbereichs 
resse 


und in bytezähler bringen 


---}> bereic 
fehler: -> 
1. pass? 
nein: > 


n 


2. pass 


> motor 


EOBT-EL 
---} kasset 


filetyp ’en 
---} block 


FUL®E E 


zeit für ku 


zeit für 1a 


data 
= #: warten 
data 
= 1: warten 


h schreiben 


ausschalten 


> kassettenport ausschalten 


O0CK SCHREIBEN 
tenpuffer löschen 


d-of-tape” 
auf band schreiben 


ESEN 


rzen puls 


ngen puls 


timer b auf kurzen puls setzen 


timer c auf 


langen puls setzen 


397054 


358920 


a38935 


a58744 


a59956 


as58961 


a38790 


358995 


a a597019 


a57015 
a59618 


259020 


as59a22 


3 
a39925 


#7019010098 
a65289 

*al 

*al 

358920 
#7,00010006 
a58883 
as8318 
#/00010909 
*al 

asro1nd 
a65289 
a58935 

*al 

*al 

a589744 
#7,00010000 
a59019 
#781000040 
a65289 
a98956 

*al 

*al 

as8961 
#700010000 
as9e15 
al989 
a63282 
al9Bi 
a65283 
#700 10009 
a65289 
#000 10000 
a65289 
a389790 

*al 

*al 

a58995 
#70001RA00 
asro2a 
a58874+2 


i a59018 


a58874 
a39618 


a58974+1 


a538877 
aaa 
a590590 
ayrass 


i a59075 


timer b und c starten 

data 

stabil? 

nein: warten -> 

data 

= 1: nochmal von vorn => 

---> abbruch, falls stoptaste gedrückt 


data 

= 1: kurzen puls gelesen -> 
timer b abgelaufen? 

nein: warten -> 

data 

stabil? 

nein: warten -> 

data 

= 1: kurzen puls gelesen -> 


timer c abgelaufen? 

nein: warten -> 

data 

stabil? 

nein: warten -> 

data 

= 1: langen puls gelesen -: 
wartezeit verdoppeln 
l,timer b 


Figmess 
timer b starten 


timer b abgelaufen? 

nein; warten -> 

data 

stabil? 

nein: warten -> 

data 

= 6 kein puls, fehler -" 
doppelt langer puls setzt n-flag 


kurzer puls setzt v-flag 


langer puls setzt z-flag 
ok-flag 


fehler-flag 


BIT LESEN 


---" puls lesen 

kein puls: fehler -> 
kurzer puls: -> 

langer pulsı -» 
doppeltlanger puls: -> 


39045 
57048 
37049 
37059 
57050 
S9053 
37055 
37057 
37959 
39057 
597062 
59064 
Srdäh 
537068 
57970 
37978 
39073 
397074 
397875 
37975 
537078 
57390 
S7H82 
57084 
7098 
I7086 
575897 
39990 
FF 
ZroF1 
37092 
37095 
537093 
5397995 
37095 
5397994 
579977 
57098 
seiol 
59182 
57105 
59107 
57189 
seiil 
57114 
59115 
57116 


57116 5 


59116 
597116 
59119 
s7121 
39124 


a37936 


a37045 


as39aso 


33597970 


asrarı 


as7192 


ag5rı1l6 


a38877 
as7ar1 
a539045 
ago 


asro2z+1l 


a58877 
a357959 
337079 
as7a71 


a59977 
as597571 
a37057 
asrorl 
a59875 


3397022 


a38877 
as7a71 
as7a7ı 
a3709& 
ay7a71 


asro22+2 


a359025 
asr1d2 
as57102 
a357182 
a58371 


al995 
a59292 
a59995 


ag9?292 


PPPEEFFERPRBEFP} 


PPREEFT, [PPESPFEEFTESPRBEFT, 


er 


u 


vn 


er 


---> puls lesen 
kein puls: fehler -> 
kurzer puls: bit 1 -> 
sonst fehler -> 


bit 1 setzt z-flag 
ok-flag 


---}> puls lesen 


kurzer puls: vorspann -" 


langer puls: bit ® -> 
sonst: fehler -> 


---> puls lesen 
kein puls: fehler -> 


kurzer puls: vorspann, weiterlesen -> 


langer puls: fehler - 


doppeltlanger puls: startbit -> 


bit ® setzt v-flag 
ak-flagq 


---> puls lesen 
kein puls: fehler -> 


kurzer puls: fehler -> 
langer puls: startbit -> 


sonst fehler -: 


startbit setzt n-flag 
cok-flagq 
fehler-flag 


STARTBIT 


stack-zeiger merken 
startbit-flag 


---> bit lesen 


kein bit: weiterlesen -> 


bit @: weiterlesen -" 
bit 1: weiterlesen -} 


---} timer a setzen und starten 


BYTE LESEN 


> 
f 


f 


SUCHEN 


startbit-flag gesetzt? 


ja: fehler -> 
---} startbit suchen 


stoptaste gedrückt: -> 


x 
F 


AS 


(18.6 ms) 


37126 a59126 1da #1 


37128 sta al969 ; byte-parity 
5913 ldx #8 
59133 stx al973 } bit-zähler 
Sp136 sec 
99137 ror al996 ; startbit-flag setzen 
Ssp146 3591468 jsr a59025 3 70} bit lesen 
59143 bes a39202 5 kein bit: fehler -> 
59145 bvs asr1sl ; bit ® gelesen: -> 
539147 bpl 359164 ; bit i gelesen: 
539149 bmi a39202 s sonst fehler -> 
sr1sl 
59151 a5p15l clc 
57152 ror #3167 ı bit ® einrotieren 
59154 inc a1969 ; byte-parity erhöhen 
397137 dec 31973 ; schon 8 bits gelesen? 
39168 bne aS57146 s nein: -> 
597162 beq a59172 
597164 
59164 a591l64 sec 
39165 ror *a167 ı bit 1 einrotieren 
59167 dec 31973 s schon 8 bits gelesen? 
597178 bne 359148 s nein: > 
57172 a59172 jsr 359625 3 77} parity-bit lesen 
39175 bes 359202 ; kein bit: fehler -> 
59177 bvs a59183 ; bit ® gelesen: 
39179 bpl 3539192 ; bit 1 gelesen: 
srıel bmi a59282 
S7193 
37183 a5r1l8E Ida al969 ; byte-parity 
37186 and #1 = 97 
57188 bne a5P202 }ı nein: fehler -#> 
S97198 beq a537197 " 
57192 i 
57192 a59192 1Ida 31969 s byte-parity 
37195 end #1 ı = 1? 
99197 beq a5P282 s nein: fehler -> 
59197 359197 clc ı ok-flag 
Sr208 bee 239203 
59202 
SI2B2 a57202 sec ; fehler-flag 
SIEBE a59203 sei ’ warum? 
39204 Php 
59205 EIE 
39206 ror a1995 » startbit-flag rücksetzen 
59207 plp 
s7218 rts 
sez1l 
a ————— BYTE-STRINE LESE 
Sp21l 
Se2ll asp2ll tsk 
SI212 stx al982 ; stack-zeiger merken 
39215 lda #*3147 ; verify-flag 
59217 beq a59222 3 "load’s -% 
97217 sec 
228 rom #a147 ; verify-tlag setzen 
3222 asy222 jsr a99257 3 -7-> motor einschalten 
jsr a5a21z 3 ---> kassettenport einschalten 
ida 21984 ; anfangsadresse 
sta #al82 ı in zielzeiger 
lda a19895 


sta #al93 


a39317 
a37319 


a59326 


as37351 


a37336 


a57362 


sta 
inc 
inc 
jmp 


lda 
sta 
inc 
bne 
ine 
inc 
bne 
inc 
bne 


a397677 
#0 
a1974 
a1975 
*a245 
*a177 
*3248 


*a159 
*+al46 
al9ö8B 
359296 
asrı11d 
a592953 
*a167 
*+a248 
*a245 
*a245 
a359296 


357319 


(a182) ,y 
*a245 
*a245 
a59356 


a1974 
#30 
as59y3s1 
*a182 
al979,y 
*a1853 
all09,y 
a1974 
+3177 
a597356 


#255 
a1974 
*a182 
a539362 
*a183 
aloaılS 
a59296 
a1614 
a35929& 


PRPBL” EPRPRL’T BFPRBLT EPBPBLFTELPP) 


Pr 


PRPEEFTERPREFT, 


[PT EPRREEFTERPRBEPT 


[PPESPFELFT| 


länge des strings, invertiert, 
in bytezähler 


---} lesen vorbereiten 


fehlerzähler 1 
fehlerzähler 2 
block-parity 
fehlerbilanz 


filetyp 


fehlerflag 1. pass 
fehlerflag 2. pass 

wird in puffer gelesen? 
nein: -> 

---; byte lesen 

fehler: -> 

gelesenes byte 

=: filetyp 


; block-parity 


—) 


bit 7 im filetyp setzen 
---} byte lesen 

fehler: -> 

gelesenes byte 


verify-flag 
load’: -> 


mit byte im speicher vergleichen 


gleich: ok -> 
fehlerflag 1. pass setzen 
immer -> 


gelesenes byte speichern 
block-parity 


fehlerzähler 1 

schon = 257 

ja: zu viele fehler -> 
fehleradresse für vergleich 
im 2. pass merken 


fehlerzähler 1 erhöhen 
fehlerbilanz erhöhen 
= 


fehlerzähler 1 :ı= 255 
zielzeiger erhöhen 


bytezähler erhöhen 


noch nicht alle bytes gelesen: 


Seite 222 S5737Z 


fehlerzähler 1 


9375 sta al975 ı in fehlerzähler 7 kopieren 
37378 jsr 357116 3 =om> byte lesen 

37381 lda al975 ; waren fehler im l. pass” 
397384 bne a37392 i ja: kein parity-vergleich -> 
397386 Ida *al67 ' gelesenes byte 

59388 cmp *a245 ; = berechnete block-parity? 
597390 bne a59395 ; nein: -> 

39392 259392 jmp a59462 vi 

39395 

39395 a59395 Ida #a247 ı 2. pass beendet? 

39397 bmi a59402 s neins => 

5973997 jimp a539375 } um: fehlerabschlu 
59492 

37402 a59402 Ida *a247 ı 1. pass beendet? 

Ss74a4 bni a59417 ı ja: 2. pass > 

37406 lda a1975 ; fehlerzahl im 1. pass 
59459 beq a59414 ı = 6: fertig -> 

Saal jmp 339375 } => fehlerabschlu 
57414 

59414 359414 jmp a59591 } => ok, motor und datenport abschalten 
59417 

37417 359417 Ida #8 

59419 sta a1974 ı fehlerzähler 1 

397422 sta #3245 3 block-parity 

5942 lda a1984 ‚ anfangsadresse 

39427 sta #a182 ; in zielzeiger 

39429 lda a1985 

59432 sta #a183 

37434 lda al986 ; bereichslänge 

57437 sta al®l3 ı in byterähler 

57449 lda 31987 

59443 sta alti4 

37446 jsr 359677 } => lesen vorbereiten 
59449 bit a1l9693 ı wird in puffer gelesen” 
59452 bpl 359475 s neims 5 

59454 jsr a59116 3 77-> byte lesen 

59457 bit *a248 ; filetyp im 1. pass fehlerfrei? 
539459 bpl a59469 s jas = 

57461 lda #a167 ı gelesenes byte 

39463 sta *a248 ı =: filetyp 

397465 bee a59469  okı > 

39467 ror *a248 ; sonst bit 7 setzen 

37469 359469 1da *a248 

37471 eor *a245 ; block-parity 

59473 sta #a245 

37475 3574753 jsr ag91l1d I => byte lesen 

537478 ror al9B8B ; bei fehler bit 7 setzen 
597481 lda *al67 ’ gelesenes byte 

57493 eor *a245 ; black-parity 

5397485 sta #a245 

39497 bit a1975 ;s fehlerzahl im 1. pass 
5749 bmi 357542 sı grüer als Mr > 

397492 ldy a1974 ; fehlerzahl im 2. pass 
5394975 cry a1975 sı = fehlerzahl im 1. pass? 
37498 beq a59342 3 jas = 

pi felele) lda al979,y ; fehleradresse im 1. pass 
39503 camp #al82 ; = aktuelle zieladresse? 
397503 bne 357542 

597367 Ida all99,y 

sps1le cmp #*a183 


S7s12 bne 339542 s meins > 


37538 
397548 
57542 
27544 
37546 
37548 
Ss9ssl 
39553 
37556 
397558 
59561 
37563 
59565 
37567 
37567 
395371 
397373 
39575 
539577 
373830 
s758l 
37393 
37393 
39385 
37388 
37397 
ss 
srl 
39572 
39595 
37578 
575997 


39599 ; 


39599 
53973797 
ran 
597605 
37503 
37695 
TPHHB 
Sell 
37612 
537614 
37617 
59619 
37620 
Sr621 
39623 
29626 
37629 
I7E38 
59632 


a57548 


a37583 


a375971 
2597592 


asra03 
a359695 


ldy 


dey 
bpl 
sty 
lda 


sty 
jsr 


jmp 


262494 


a397372 


#790010008 
262494 


337392 


339288 


- 358232 


a59599,y 
al9Ba,y 


as?aug 
a1988 
*3147 


*a147 
al337 
aspz1l 


*2147 
as9307 


ne en 


a EA a Am 


. 


Pr 


fehlerzähler 1 erhöhen 
letztes gelesenes byte fehlerhaft? 
ja: nicht abspeichern -> 


gelesenes byte 
verify-flag 


load’: —> 

mit byte im speicher vergleichen 
gleich: -} 

fehlerflag 2. pass setzen 

immer -> 


fehlerbilanz erniedrigen 
byte abspeichern 
zielzeiger erhöhen 


bytezähler erhöhen 


noch nicht alle bytes gelesen: -> 
---} byte lesen 

alle fehler korrigiert? 

nein: -> 

fehlerflag 1. pass 

fehlerflag 2. pass 

mindestens 1 fehler in 1 pass: -> 
filetyp 

fehlerfrei: -> 


---> in status 
fehler-flag 


---> in status 
tehler-flag 


ok-flag 
---}> motar ausschalten 
---> kassettenport ausschalten 


BLOCK IN FUFFER LESEN 


” 

’ 
“ 
’ 


PTEERPEEFT 


kassettenpuffer-anfang 
= 45536 - pufferlänge 191 


anfang und länge übernehmen 


flag für "lesen in puffer” setzen 
verify-flaq 
merken 


verify-flag := @ 
offset in kassettenpuffer 
---} block lesen 


verify-flag wiederherstellen 
---> pufferzeiger initialisieren 


Seite 224 57355 


a EEG LEGE PRDOGERANMFTLE LESEN 
59635 

59635 a59635 1da #a178 ; ladeanfang 

59637 sta a1l984 ; für zielzeiger 

59648 lda #a179 

39642 sta al985 

39645 eie 

39646 lda *a157 ; länge berechnen 

59648 sbc #*#a178 

59850 eor #255 ; invertieren 

59652 sta al986 ; für bytezähler übernehmen 

59655 lda *a158 

397657 sbc #a179 

59659 eor #255 

5661 sta a1l987 

S9b64 celc 

39665 ror a1968 ; flag für ’lesen in puffer”’ rücksetzen 
SI7668 jap a59211 ı => file einlesen 

S9h71 

aa LESEN VOßSEBEEREITEN 
59671 

59671 359571 „se 258 ; zeitvorgabe kurzer puls 

59673 „se 514 ; zeitvorgabe langer puls 

39673 .se 52 ; zusätzlich für doppeltlangen puls 


39677 259677 1dk #5 


396797 259679 1lda 2a59%671,x zeiten aus tabelle übernehmen 


u 


59682 sta a1976,x 

59685 dex 

37686 bpi 3596479 

S9628 a59688 Ida #18 ; zähler setzen 

576978 sta 21989 

TEN: a59693 jsr a58877 3 7-5 puls lesen 

3996 bes 359688 sı kein puls: nochmal -# 

5998 bvc 359688 ; kein kurzer puls: nochmal -= 
57758 dec a1989 ; zähler erniedrigen 

39703 bne a59693 ; bis 18 kurze pulse gelesen wurden 
59705 359705 Ida #0 

39787 sta #3186 ; zellen für zeitberechnung löschen 
59709 sta *a187 

5711 ldy #16 ;ı zähler für pulse 

539713 a59713 1dk #8 ; zähler für zeitschleifen 

59715 lda #400010098 

59717 a59717 bit #al ; data 

57717 begq 259717 ; = 8: warten -> 

597721 a59721 bit #al ; data 

59723 bne a59721 ;s = 1: warten -> 

59725 a59725 ins ı zähler erhühen 

59726 beq 339705 ; überlauf: nochmal von vorn => 
59728 bit *al : data 

539738 beq a59725 ; = 8: zähler x erhöhen und warten -> 
37732 359732 ink ; zähler erhöhen 

59733 beq a59705 ; überlauf: nochmal von vorn -> 
59735 bit *al ı data 

39737 bne 359732 s = 1: zähler x erhöhen und warten -> 
597739 txa ; zählerstand 

597740 elc 

39741 adc #a196 ; zum gesamtzeit-zähler addieren 
59743 sta #a3186 

59745 lda #0 

539747 adc #2187 


39749 sta #3197 


Seite 225 57751 


59751 dey ; schon 16 takte gemessen? 

39752 bne a59713 s nein: -> 

397754 lsr *a187 ; gesamte gemessene zeit 

39756 ror *#al86 ; durch 4 dividieren 

59758 lsr *a187 

59768 ror *al86 

57762 lda *a186 

39764 sta al976 ; ergebnis als kurze pulszeit, 
59767 asl a ; verdoppeltes ergebnis 

59768 sta a1978 ; als lange pulszeit und 

57771 sta al980 i als verlängerungszeit übernehmen 
59774 lda *a187 

39776 sta a1977 

227727 rol a 

57788 sta al979 

39783 sta al981 

59786 a59786 jsr a58877 3 => puls lesen 

59789 bcs a59786 ; kein puls: weiterlesen -> 

5771 bvs a59786 ; kurzer puls: weiterlesen -> 
59793 bpl a5978& s langer puls: weiterlesen -> 
59795 jsr a58877 } > puls lesen 

597798 bes 259786 ı kein puls: weiterlesen -> 

5780 bvs a59786 ı kurzer puls: weiterlesen -" 
59892 bmi a59786 ; doppeltlanger puls: weiterlesen -> 
597904 ele ; startbit wurde gelesen 

59805 ror a1l996 ; startbit-flag rücksetzen 

59808 jsr 358371 } ==> timer a setzen und starten (18.6 ms) 
Srell lda #3 

57813 sta a1l998 ; zähler 

597816 jsr a59126 3 ---> byte lesen 

57819 bec a59824 oki -> 

57821 dec a1998 ; zähler dekrementieren 

57824 a59924 jsr a597116 } =-> byte lesen 

39827 bee 259837 ı oki —} 

59829 dec a1996 ; zähler dekrementieren 

59832 bne a59837 s noch nicht 3 fehler: -> 

57954 jmp a59677 } ---> lesevorbereitung wiederholen 
39837 

39837 a59837 Ida #a167 ; gelesenes byte 

59837 and #15 ı unteres halbbyte isolieren 
59841 cmp #1 ; = 1 (ende des countdonns)”? 
57843 bne a59824 ; nein: weiterlesen -> 

59845 lda *a167 ; gelesenes byte 

597847 and #128 bit 7 isolieren 

59849 sta #a247 ; pass 1: 128, pass 2: & 

57851 rts 

59852 

3902 ya FILEHEADER LESEN 
597852 

59852 a59852 jsr a5960T i ---> block von band in puffer lesen 
57855 bes 359934 

59857 lda *a248 ; filetyp 

59859 cmp #5 s "end of tape’? 

57861 beq a59938 3 jas 7 

59863 emp #1 ; ”programm’”? 

59865 beq a59875 jan => 

59867 cmp #3 

59869 beq a59875 

57971 emp #4 ; "daten’? 


59873 bne a59852 ı nein: -> 


59875 
59875 
37878 
57880 
59883 
7891 
539893 
37895 
578978 
59899 
Sr 
59903 
59905 
5979708 
gl 
599712 
37714 
Srr16 
59919 
3979721 
37723 
597925 
59927 
59928 
59930 
37931 
59931 
S7732 
59933 
379734 
539934 
59936 
379737 
59937 
59937 
59937 
S7748 
59942 
39744 
59946 
59948 
599751 
39953 
59956 
5979758 
3597968 
57762 
59965 
59968 
59971 
399773 
59975 
5979778 
59781 
379784 
39997 
59987 
59989 
59998 
sr 
Sal 
5797972 
59974 


a37875 


a359893 


a5399705 


337930 


a39937 


339956 


a37997 
a37787 


asp 


13 "found ” © 
#4 

(al82),y 
3654998 


#21 
337893 


{ #255 


a58090 
a58090 


a37927 
#127 
a36176 
#127 
a539754 
#223 
a37995 


#0 


a37987 


al971 
(a182),y 
a59937 
a1976 
a1971 
a1978 
259956 


#0 


PTEEPPEEFT 


PPPEEFT: 


meldungen zugelassen? 
nein: -> 
---> meldung ausgeben 


dateinamen 

---> bsout 

insgesamt 16 zeichen 

---} 14 ms warten 

---} 165 ms warten 

nach ca. 8 sı -> 

---> tastaturdekoder abfragen 
stoptaste gedrückt? 

jas => 

C=-taste gedrückt? 


nein: warten -= 


filetyp 


HEADER IDENTIFIZIEREN 


PPFEEPTERPFEEFT, 


Pr 


---> block vom band lesen, meldung 
abbruch: -> 
"end of tape’-block? 


% 


jas > 
offset in kassettenpuffer 

offset in filenamen 

fnlen: ende des namens erreicht? 

ja: -> 

l,fnadr 

---> Ida (a),yr zeichen aus filenamen 
= zeichen des namens im puffer? 


nein: nächsten black lesen -> 
offsets erhöhen 


---} weiter vergleichen 


filetyp 


ae RS -232 RBERTINEN 
59995 

397995 a59995 1da 32904 ; rs=status 

57978 and #402010008 ; bit 4 gesetzt? 
69088 beq a60052 s neins -> 

60002 lda 364784 

6005 and #2 

69067 beq abans2 

6989 ldı #0 

san1l bit a2aoa 

69014 bpl a60025 

65016 Ida a1999 

680197 stx a2a08 

sun2Z jmp asad41 ne 

69925 

69025 a60025 bit a197978 ; datenbyte im ausgaberegister”? 
65928 bpl asan52 ; nein: fertig -> 
HHHF8 bit a2606 

69033 bmi a6s0052 

44935 lda a1997 ; datenbyte 

65058 stx a1998 ; ausgaberegister freigeben 
HBA41 as0041 sta a64768 ; datenbyte an rs-232 
65044 lda a2004 ı rs-status 

65047 and #411181111 ; bit 4 löschen 
65049 sta a2bd4 

HH0T2 aha rs 

HOHTI 

HaaTE asTT Ida a2064 3 rs-status 

69956 and #400001000 

Haus beq a60144 

{e1e15 7-1) lda 22064 3 rs-status 

06T and #41111@111 ; bit 3 löschen 
69065 sta az0a4 

63068 Ida a64768 ; datenbyte von rs-232 
68871 beq asha98 ı=0 -> 

630973 sta 22005 ; zwischenspeichern 
60076 cmp *a252 ; = 255 (von open) 
63978 bne 360697 

[-1ul2j=1) lda #6 

65082 sta a2066 

66085 begqg 266144 ı fertig -> 

69987 

E87 abnn87 camp *a253 ı = 255 {von open) 
650899 bne asb698 

699971 lda #255 

68593 sta azu06 

[-1210275) bne a69@144 s fertig -> 

699978 

HOHF7B asan98 Ida azuo3 ; bytezähler 

HB101 cmp #63 

69103 begq a660144 ; fertig -} 

66105 cap #56 

64197 bne as6124 

681099 lda *a253 

Halli beg a56124 

6113 sta a1999 

Ha11l& lda #255 

sb118 sta a2008 


sa121 sta a2697 


66124 a6d124 1dx 


66127 
60128 
60129 
s5151 
66134 
69135 
661389 
sa141 
66144 


65148 
69159 
60151 
69152 
65155 
60156 
68157 
66157 
69162 
60165 
69164 
64167 
ba16B 
65171 
65174 
60176 
63178 
salat 
65183 
60185 
691897 
sold 
gH1F1 
65194 
69197 
Br2on 
6r2u2 
6203 
66206 
Hn208 
65219 
60212 
66213 
64214 
662159 
69215 
su215 
65215 
66218 
6u220 
6223 
69224 
6922 


as6144 


3650197 


asnz2u2 
as0203 


a66213 


asn215 


inx 
txa 
and 
sta 
tax 
lda 


#65 
azoal 


32005 
ald1l5,ıx 
a2onF 


a2003 
as9282 


x a2002 


#63 


a20B2 


alo1lS,x 


ahd203 
32007 
369203 
*a252 
ausd203 
a19799 


a20090 
32057 
a2908 
asa213 


ı a2004 


#ARLOO1111 
#701000990 
*a144 


a1998 
ash215 


ı 31997 


a19978 
asa292 


wenn .“. ia he Er 


Pr 


u 


=. 


we. we 


Pr 


Pr 


pufferzeiger 
erhöhen 


modulo 64 
wieder abspeichern 


datenbyte 

in puffer 

bytezähler erhöhen 

ETNSEABE VON RS-232 
puffer leer? 

jam => 

pufferzeiger 

erhöhen 

modulo 54 


und wieder abspeichern 


byte aus puffer 
merken 
bytezähler dekrementieren 


noch 3 bytes im puffer? 
nein: -> 


rs-kanal offen? 
nein: -" 


rs-status 


status 


AUSGABE AUF R9S-252 


ausgaberegister frei? 
neins warten > 
datenbyte in ausgaberegister 


ausgabe-sperre setzen 
---} abschlu 


[ale Rieie) 
HS 
bOIThBO 
bu362 
603653 
6uI6& 
663683 
68371 
60372 
60373 
64375 
69376 
65377 
69377 
6377 
69377 
69379 
Hazal 
6393 
HHI8& 
&H388 
643899 
60392 
60392 
HP 
69392 
60374 
60396 
Ha398B 
63400 
uam 
59404 
62497 
66497 
65409 
FLELaB! 
654153 
6R415 
9418 
sa42 


ab0230 


a60234 


ab%a248 


au358 


abd3&2 


a6®373 


a60377 


asa392 


366407 


#0 
#11 
al997,x 


a60234 
a64769 


13 "i/o error 
13 "searching for” 


13 "savi 


ng” 


166 


13 "’verifyinG’ 
13 "found” 


IS "ok 


*a154 
a69375 
asn249,yY 


#127 
2634970 


#al52 
266457 
*a239 
a1l373 
a60450 


355487 


*al32 
a60407 
*a202 
*3197 
*a205 
*al96 
ass5asT 


#3 
a6b4472 
+a199 
+a199 
a2024 


ı #al95 


Eistal-jen3 


141 


168 


" 163 


’ 


’ 


bereich 1997,...,28608 löschen 


rs-2 


o% 


5: 


IR 


169 
13 "press play on tapE’ 
"press record % play on tapE’ 
13 "loadinG” 


we 


2-status 


-MELDUNGEEN 


meldungen 
gesperrt: -> 
zeichen aus text 


---: bsout 


nicht letztes zeichen: -> 


GRTLN 


eingabekanal 

nicht tastatur: > 
tastenpuffer-index 
funktionstasten-index 
beide 


= mh 


> kode aus tastenpuffer holen 


eingabekanal 

nicht tastatur: -* 
spaltenzeiger 
letzter spaltenwert 
zeilenzeiger 
letzter zeilenwert 


> zeichen vom bildschirm halen 


bildschirm? 
nein: 
übernahmeflag 


rechter bildfensterrand 
spalte des letzten zeichens 


zeichen vom bildschirm holen 


Seite 250 


---> x und y retten 
kassette? 


63470 
65471 
69472 
65474 
63475 
65479 
69488 
60492 
69485 
62488 
694899 
65490 
a1 
69491 
65491. 
Earl 
[een re 
69494 
504976 
40498 
694997 
623502 
Hase 
sn 
[= ifelite) 
[elöetein} 
9708 
Hast 
Hast 
6515 
[-1E1WP En) 
HERTZ 


ab423 


au0456 


abb442 


a60450 


! a60452 


a6b465 


a69495 


a60491 


asa592 


ash50g 


a64452 


a60145 
a64452 


aua42I 
*a144 
a60555 
#13 


360452 


al337 
(al82),y 


#191 
ahsd485 
{(al82) ,y 
360485 
#64 
362494 
al337 


asaT92 
a363973 
aba5o8 


a60537 


“ 264437 


a6d533 


DT EEPPEEFT EERPEEer 


ne a 


.. 


nein: 


---} byte von kassette holen 
---> x und y wiederherstellen 


y 
£ 


---} byte von rs-232 holen 


---> x und y wiederherstellen 


nicht bus: 


status 
oki -> 
cr-kode 
VDN KASSETTE 
pufferzeiger 


nein: 


F 


; schon am pufferende? 


---} block in puffer lesen 
aka => 


pufferzeiger 
byte aus puffer 


merke 


n 


offset in puffer erhöhen 
pufferende erreicht? 

jat =} 
nächstes byte aus puffer 
nicht kode Br -% 


eci-b 


ie 


in status odern 
pufferzeiger erhöhen 
datenbyte aus puffer 


BSOUT 


datenbyte 
ausgabekanal 
bildschirm? 


nein: 


datenbyte 


tastatur, 
datenbyte 
---> ausgabe auf bus 


>& 


Ks 


kassette? 


nein: 


>» auf bildschirm ausgeben 


kasette, rs-2I2?T 


y retten 


pufferzeiger 
puffer voll? 


nein: 


HOLEN 


65525 
63527 
60529 
snSZ1 
69533 
60534 
69536 
69537 
69I408 
69542 
59542 
60543 
60545 
60548 
63548 
69549 
69552 
6953559 
60555 
64555 
6H53I 
60537 
69559 
60561 
65563 
Hushh 
[eluletet-} 
40569 
69578 
Ha57l 
69573 
60576 
695797 
Hast 
sa583 
68586 
60589 
60592 
695974 
60597 
60599 
[-EI-15p8 
69693 
6995 
69608 
sas11l 
50612 
69614 
69617 
69528 
69622 
60624 
6627 
50529 
69632 
60635 
60638 


69638 


338577 
asd542 
#2 
*a248 
#0 
abag3E 
(alB2) ,y 


a1337 
aub5I2 


a60542 
#0 
a654452 


368548 
asb215 


a60552 a64447 


as053I 


{ *alB6 
337938 
ausd56& *a249 
#48 


#410000 160 
a652ld,x 
asazld,n 
3660576 
#6 
as5219,% 
ab3z18,x 
a65218,x 
abh589 
as5217,ıx 
#3 

#3 
abdad 
#64 
a62494 
ass216,8 


abb576& 


3605897 


abdau5 


asha218,% 
assz18,% 
atb6&17 
#235 
asgz19,x 
#0 
ass2ld,x 
a653218,x 
366884 


a60617 


3 


IPFESPPREF TI 


er 


---> puffer auf band schreiben 
fehler: 


=, 


filetyp "daten’ 
affset in puffer 
datenbyte 

in puffer schreiben 
offset erhöhen 
pufferzeiger 

immer —: 


stack korrigieren 
---> x und y wiederherstellen 
datenbyte 


> auf rs-232 ausgeben 
---? a, *, y wiederherstellen 


ACPTR 


iec-bus? 
" 


ja -> 


> byte von serial bus holen 


iec-bus-flag 
offset 
= 48/6 # gerät #8/9 


eoi-bit 
---} in status odern 
datenbyte 


is 


6650 
65652 
69654 
69635 
60657 
69659 
[e12J-1e12) 
bh 
6664 
60667 
60669 
60672 
68675 
69677 
[elzlt=le) 
GGF 
60695 
606883 
a5 
60693 
62696 


69696 3 


60695 
69696 
605997 
65761 
667054 
50704 
65707 
65709 
63711 
66713 
69715 
69717 
657197 
64722 
66724 
64726 
64728 
69729 
66730 
64739 
65731 
69734 
65736 
66739 
40749 
69742 
65745 
65748 
65748 
65751 
69732 
69754 
69756 


asd645 


asbaT2 


Eteleeten 


abb6Bd 


aub&9& 


a66704 


abh726 


a60729 


a60730 


a60748 
adh751 


ab738 


a6h64s 
337895 


al512 
#719000011 


x» *31946 


*a249 
#48 


adszld,H 
absz18, X 
abl6ad 
alsız 
asgzld,H 
#6 
as5218,% 
absz2ld,K 
ahhh80 


a62494 
asr8rl 


ab1169 
asn764 
ab2873 


a6l176 
ash726 
#3 
a60726 
a6h730 
#2 
364757 
asn197 
au6729 
*a174 
#al32 


ahh722 
*a144 

a60756 
*a173 

a66748 
a699747 
ash7zl 


a60754 
+a144 


aush72& 
362077 


we 


iec-bus? 
jet > 
} byte auf serial bus senden 


ijec-bus-flag 
offset 
= 48/6 für gerät #8/9 


datenbyte 


=--> in status odern 
——-: abschlu 


CHKIN 


---: file in tabelle suchen 
gefunden: =} 
---: i/o-error #3: "file not open" 


-——: file-daten aus tabelle übernehmen 
tastatur: > 


bildschirm: -> 
busı > 


kassette: -" 
===} chkin von rs-Z3R 
fehler: > 


ı geräteadresse 


=: eingabekanal 


---} talk 

status 

bit 7 gesetzt: fehler -> 
sekundäradresse 


"atn’ ausgeben 


—— tksa 


status 
ek =7 
> i/orerror #5: "device not present" 


Seite 


69759 
60761 
697653 
687653 
64768 
65768 
657689 
40768 
65771 
69773 
69775 
69776 
69779 
3781 
45794 
69784 
65786 
66788 
69796 
69792 
65794 
69797 
697997 
Hat 
0907 
63804 
50905 
65B0T 
6306 
elj= 
sol! 
506815 
69815 
3817 
54920 
65822 
60922 
65923 
698926 
65828 
64950 
6933 
55933 
60835 
65937 
65837 
ERi=E 3 
85841 
65841 
65941 
66842 
60844 
&5B46 
65848 
elj=te1) 
69352 
5354 
0856 
60958 
65968 
HuR5T 
Hu9hh 


a64759 


as1160 
as077& 
262073 


as7&8 


a6077& as117& 
asa784 
aso7e1 as2085 
#3 
adsaal 
asaBB5 
#2 
asuaTT 
asb197 
as6804 
*3174 
*#a153 


a66784 


ash 
a6 


aba805 
ab09772 
#3144 
360836 
*a173 
assgz2 
260997 
a&b825 
aba822 as1905 
abhB25 
*#a144 
assant 
352079 


t #a173 
ı #96 
a&9781 
ash 


a69841 


a6b8589 
#7 
350379 
#5 

#85 
abT2lb,H 
ass5216,.x 
2658979 


a66858 


233 5757 
; sekundäradresse 
= 9? 
ı jas -> 
3 ---> i/o-error #6: not input file 
CEKOUT 


PP EEPFEEPFESRPREFT, 


PPEEPFREFT, 


FT ESFFREFT) 


PPRREFT EEPFREFT, 


---> file in tabelle suchen 
gefunden: -> 


---> i/o-error #3: file not found 


>» file-daten aus tabelle übernehmen 


nicht tastatur: -} 
i/o-error #7: not output file 


bildschirm -> 
bus -> 


kassette -> 
---} 75-232 
fehler: 
geräteadresse 
ausgabekanal 


---: listen 

status 

bit 7 gesetzt: fehler -=> 
sekundäradresse 


’ 


---} "atn’ serial bus 


immer -" 
---> second 
status 

okı -> 

---> i/o-error #59: ”devicze not present’ 
sekundäradresse 

= 97 

jar fehler -> 

ak -> 


IECG-BUS FRÜFEN 


offset für geräteadresse 8 
geräteadresse 
= 8 oder 9? 


nein: -> 

offset für geräteadresse 9 
ist adresse 

ass2ldtoffset 

eine ram-adresse? 

nein: kein ijec-bus -> 


Seite 234 sp938 


69868 lda a65217,x ; ist an der nächsten adresse 
sa971 and #2 ; bit 1 gesetzt? 

60873 bne 364379 ; ja: kein iec-bus -> 
68875 stx *a249 ; offset abspeichern 
66877 clc ; flag für "iec-bus vorhanden” 
60878 “by 26 

608797 a60879 sec ; flag für ’kein iec-bus”’ 
[eleJ=1=1e} ldx *a185 i x wiederherstellen 
60882 pla 

66885 rts 

69984 

BuaBe ee TEC-ABSEHLUSS 
65994 

HaBa4 5 eingabe 

69894 

60884 a60884 Ida asj218,x 

658897 bpl a&s0884 

60889 bmi 260895 « 
[-12j=2 28 

ag 5 ausgabe 

HoBF1 

69891 a68891 Ida #9 

65895 sta asS216,x 

60896 aa0896 Ida #64 

jels]= 522} sta a6s219,x 

67a1 ldx #a196 

EHRT pla 

9794 celc 

60905 rts 

699706 

a TEE RUCKSACK VON IOINIT 
[1222273 

OR ab sta a6526h 

609997 sta a63221 

69912 sta 365218 

HH91SI dex 

60716 stx a65217 

BHF197 jmp 333226 ı = 

AFFE 

a TALK 

66922 

HHIEE asm922 jsr adaa4l 3 77-> ijec-bus? 

65925 bee as8930 ı jaı => 

60927 jnp a37693 3 => talk serial bus 
HO9FH 

su9F70 asB9I0 pha 

69951 lda #64 

599733 sta al5i2 ; ausgaberegister 

69936 lda *a249 ; iec-bus-flag 

60938 ora #64 : talk-bit setzen 

Hapan sta #3249 

69942 Ida #410000081 

60744 jmp asB652 3 77-5 "talk’ ausgeben 
69947 

BIT Sm TKATN 

60947 

69947 a60947 bit *2249 ; jec-bus? 

50949 bvs as1004 ; jaı > 


69951 jmp 257958 3 => "atn” serial bus 


61005 
61905 
61585 
61T 
51967 
51a? 
1012 
61812 
61813 
61816 
61913 
ai1ozl 
siazı 
siszl 
61921 
61923 
61926 
61028 
61927 
s1a3o 
1030 
1933 
61954 
61035 
61037 
61939 
61941 


a69954 


a6596l 
*%a173 
a1512 
#4120080010 
360652 


a60972 asn841 
asB9780 


a37686 


as0980 
#32 

al512 
+a249 
#128 
*3247 
#7,100900%1 
3606532 


asn997 
as1504 
337932 


aslocd 


as1aT *a249 
asılo1z 
a37847 


asils12 
alSı2 


as1821 *a186 
a61185 
361830 


a619360 a6117& 


*a174 
as1130 
#3 
aslı3a 


PTBERREEFT 


PPFEEFT| 


. PFPREPTEEPPREFT 


PREFPEEF PN 


PPEEFRREFF, 


PPREFT| 


iec-bus? 
ja > 


---> talk serial bus 


sekundäradresse 
in ausgaberegister 


---> sekundäradresse ausgeben 
LISTEN 
>» jec-bus? 


> listen serial bus 


listen-bit 
ausgaberegister 
iec-bus-flag 
listen-bit setzen 


listen’ ausgeben 
LSNATN 


iec-bus? 
ja: fertig -> 
"atn’ serial 


bus 


iec-bus? 
jaı => 
> second serial bus 


sekundäradresse in ausgaberegister 


sekundäradresse ausgeben 
GL.BSE 
carry-bit merken 


file in tabelle suchen 
gefunden: -> 


file-daten aus 
geräteadresse 


log adresse 
tastatur: > 


bildschirm: -} 


tabelle übernehmen 


61843 
61945 
61947 
61549 
61250 
151 

61954 
61955 
61957 
61937 
61957 
61961 

6163 
61066 
61068 
61978 
61973 
61675 
61977 
61979 
61881 
61984 
61986 
s1oad 
s1a71 

61893 
612974 
61996 
61697 
61497 
61597 
1181 

61183 
61106 
61107 
61189 
silil 

61113 
61115 
61117 
61119 
s1lzı 

61123 
61125 
61127 
61130 
&1151 

61132 
61134 
61156 
61138 
61146 
61143 
61146 
61149 
61152 
61155 
&1158 
61159 


a61957 


361684 


3619973 


a61897 


ab1109 


a61127 
asl13n 


ahl159 


a61l1097 
#2 
ab1957 


as0230 
asl136 


*al73 
#15 
abıılıa 
ala37 
#191 
as1084 
238677 
as1lo9E 
#2 
*a248 
#0 
alı37 
#0 
(al82),y 
339677 
a61097 


#0 
*#a173 
#98 
as1l130 


as8864 
asıllao 


ab1969 


*alsl 


ı #al5ıl 


as1l158 
*alS1 
al299,y 
al289,x 
al299,y 
al299,x 
al309,y 
al3o9,x 


kassette: -" 


---: arbeitsbereich löschen 
immer => 
sekundäradresse 


=: ’read’ -} 
kassettenpnuffer-zeiger 


puffer noch nicht voll: -> 
_--> puffer auf band schreiben 
fehler: -5 

filetyp: "daten’ 


pufferzreiger rücksetzen 


puffer mit kode '®" abschlie*en 
=--> puffer auf band schreiben 
okı => 


sekundäradresse 
"end-af-tape’-block gefordert”? 
nein: -> 

> "eot’-block schreiben 
„--} file-tabelle fortschreiben 


aufruf mit "sec"? 
nein: > 
geräteadresse 


ı kleiner als 87 


jas > 


ı sekundäradresse 


kanal 157 


y 


» floppy-kanal schlieen 


file-daten aus tabelle entfernen 


Seite 


612008 
61292 
61295 
61207 
61289 
61212 
61214 
61216 
61218 
61219 
61219 
61219 
61219 
61221 
61223 
61226 
61228 
61227 
61229 
61232 
61234 
61256 
61238 
61249 
61243 
61243 
61243 
61243 
61245 
61247 


as115ö 


a61165 
361167 


as117& 


asıl7t 


a61196 


a61205 


ab1212 


a61219 


a61226 


a61243 


ı *al51l 


as1191 
al289,x 
a61167 


al289,x 
*al72 
al309,x 
*#a173 
al299,x 
*a174 


ı #3 
ı #a153 


a61285 
a61219 


x *a152 


361212 
351243 
#a153 
#5 
*+a152 


*a249 
ab1226 
asS7917 


#63 

alSız 
*3249 
#127 
*a249 
#710086801 
a606532 


a61250 
a37903 


237 


FFEE IN T 


PFPESRRBEFT 


aa) AR ara SE) ae Aa 


-. 


EPPESPRIEPFN 


nn wa 


status lösch 
log adresse 
file-tabelle 


nicht gefund 


log adresse 
la 


BREELEE 


en 


nindex 


en: -> 


sekundäradresse 


sa 


geräteadresse 


fa 


CGLALL 


ldtnd: filetabelle löschen 


ELRER 


ausgabekanal 


nicht bus: -> 


--- unliste! 
eingabekanal 


n 


nicht bus: -> 


---} untalk 
ausgabekanal 


eingabekanal 


UNLIST 


iec-bus? 
ja -> 
---> unliste 


ausgaberegis 
iec-bus-flag 
listen-bit 1 


=} *"ünliset 
UNTALK 


iec-bus? 
ja: > 


=) untalk 


= bildschirm 


= tastatur 


EN 


n serial bus 


ter 


öschen 


en’ ausgeben 


serial bus 


SUCHEN 


Seite 2739 
61250 a61250 pha 
61251 lda #95 
61253 sta alSıi2 
61256 lda *2249 
61258 and #191 
&1268 sta *#3249 
61262 lda #410090961 
61264 jmp as04s52 
61267 
Ba y_____——a— 
61267 
61267 a61267 dx *a172 
61269 jsr a61168 
61272 bne a61277 
61374 jmp a62678 
61277 
61277 a61277 1dx *al5l 
61279 cpx #10 
41281 bec a61286 
61283 jmp as2567 
6128& 
61286 a61286 inc #alSl 
61288 lda *a172 
61298 sta al299,x 
H12PF lda *a173 
61295 ora #4o1 10000 
61297 sta #3177 
612997 sta all09, 
&1302 Ida #174 
Eizad sta al297, 
beg as1318 
emp #3 
beg a61318 
bee as61328 
jisr 361445 
asl3l8 clc 
rts 
a aslIMO cmp #2 
bne as1368 
ee 
jsr as0230 
tax 
aal328 inx 
begq 361342 
stx a64771 
cpx 264771 
begqg a61328 
jimp 362079 
? asl342 sec 
ror a2aag 
lda #175 
sta a2813 
ldy #8 
jsr a2009 
sta 364771 
iny 
jisr a20097 
sta a64770 
elc 


u 


ausgaberegister 
iec-bus-flag 
talk-bit löschen 


---; "untalk” ausgeben 
OFEN 


log adresse 
---> in tabelle suchen 
nicht gefunden: -> 

> i/o-error #2: 


za "file open” 
file-tabellenindex 

kleiner als 187 

jar => 

---> i/o-error #1: "too many files” 
file-tabellenindex 

log adresse 

in la-tabelle 

sekundäradresse 

bits 5 und & setzen 

wieder abspeichern 

und in sa-tabelle 

geräteadresse 

in fa-tabelle 

tastatur: -> 

bildschirm: -> 

assette oder rs-232: -}> 
> openi: bus eröffnen 
ok-flag 


kassette - 


OFEN 


RS-232 
---> arbeitsbereich löschen 
= 255 

??? immer! rest wird nie ausgeführt > 
#551 control register 


---> i/o-error #5: "device not present’ 


rs-open-flag setzen 
l,adresse des file-namens 


Ida {a),y: 1. zeichen aus filenämen 


control register 
> l\da {a}),y: 2. zeichen aus filenamen 
command register 


DIE VE WESESheeeeshbäieene OPEN KASSETTE 

61368 

61368 as1568 Ida #a173 ; sekundär adresse 

61378 and #15 

61372 bne a61418 ; ungleich ®: ’write’ -> 

61374 jsr a58139 3 77-> play-taste prüfen ggf anfordern 
61377 bes a61417 ; stoptaste gedrückt: -> 

61379 jsr a61792 3 7-5 "searching for „.„’ ausgeben 
61382 lda *a171 ı fnlen: länge des filenamens 

61384 beq a61396 ; kein filename: -> 

617386 jsr 359937 3 --> file header auf band suchen 
61389 bec 261407 ı gefunden: -> 

6171 beq a61417 

61393 3641393 jmp a62076 5 --> i/o-error #4: "file not found’ 
61396 

61396 a61396 jsr 359952 ; —--> nächsten block in puffer lesen 
61399 beq a61417 

61401 bes a61393 ;ı keinen block gefunden: -> 

61403 emp #5 i "end of tape’-block? 

61405 begq a61393 s jas > 

61407 361497 1Idy #191 i pufferzeiger initialisieren 

61489 sty al337 

61412 lda #2 ; kennzeichen f "datenblock" 

61414 sta #3248 


61416 asl416 clc 
61417 a61417 rts 


61418 

61419 a61418 jsr a589137 3 > play-taste prüfen ggf. anfordern 
61421 bes as1417 s stoptaste gedrückt: -> 
61423 lda #4 ; kennzeichen f "headerblcock” 
61425 sta #249 

61427 isr 3539732 3 77-> file header auf band schreiben 
61430 bes 3461444 

61432 Ida #2 } kennzeichen f "datenblock’ 
61434 sta #*a248 

61436 ldy #0 

61438 sty al337 ; pufferzeiger 

61441 sty al335 

61444 a61444 rts 

61445 

Ba ann OFEN RUS 

61445 

61445 361445 Ida #173 ;ı sa: sekundäradresse 

61447 bmi a61416 b 27: kanal bereits offen -> 
61449 ldy #al71 ; fnlen: filename länge 

61451 beq as1416 ; kein filename: fertig -> 
61453 lda #0 

61455 sta *#al44 ; status 

61457 Ida #2174 ; geräteadresse 

61459 jisr 360972 i ---> listen 

614423 bit *#a2144 ; status 

61464 bmi a61477 ; gesetzt: -> 

61466 lda #a173 s sa 

61468 ora #411110008 

61470 jsr a61905 3 => second 

61473 lda #a144 ; status 

61475 bpl a61492 io: — 

61477 351477 pla 

61478 pla 


61477 imp a52679 3 =--> i/o-error #5: ”device not present’ 


61482 361482 Ida *#a171 ı fnlen: filename länge 
61484 beq a61594 ; kein filename: -> 

61486 ldy #90 

61488 a61488 Ida #a175 ; l,fnadr: filename adresse 
61498 sta a2015 

61493 jsr a2009 ı 77: Ida {a),y 

61496 jsr a66639 3 ==> ciout: zeichen auf bus ausgeben 
614997 iny 

61508 cpy *#al71 ;ı filename zu ende? 

61582 bne 261488 ı nein: -> 

61564 a61504 jmp a61987 1 => unlisten 

61567 

a zz [ee LOAD /VERIFY 
61597 

61597 361507 stx *al86 ; l,ladeadresse 

61569 sty *a18l 3 Hysun 

61511 jmp (2814) 3} => load-routine (a61514) 
61514 

61514 as1514 sta #a147 s verck: verify flag 

H1516 lda #9 

61518 sta #a144 s status 

61526 lda #3174 ; geräteadresse 

61522 bne a61527 i nicht tastatur: -> 

61524 361524 jmp a62691 ı ==> illegal device number 
615327 


61527 261527 camp #3 


61529 beg a61524 ; bildschirm: -# 

eisEl bes 361548 i busı -> 

s1533 cap #2 

615335 beqg a41524 

61537 imp 361690 i ==> laden von kassette 

61546 

61548 a61548 1dy #a171 ; fnlen: länge des file namens 
61542 bne 361547 ı filename vorhanden: -> 

61544 jimp 262688 } =: file name missing 

61547 

61547 a61547 Id *a173 ı sekundäradresse 

615497 jsr 361792 I oo: "searching for ..„." ausaeben 
61532 Ida #96 ; sekundäradresse f "load 

61554 sta #a173 

51556 jsr 361445 } ==> open serial bus 

61557 lda #2174 ı geräteadresse 

s1561 jisr 366922 > talk 

61564 Ida *a173 ı sekundäradresse 

61566 jsr a60954 3 ==> tksar sekundäradresse ausgeben 
61569 jisr a60555 io: acptrı byte vom bus holen 
61572 sta *#al57  ealı l,ladeadresse 

515374 lda *3144 ı status 

61376 lsr a 

61577 lsr a 

615378 bes a51672 s timout: -> 

41586 jsr a6b555 I > acptr: byte vom bus holen 
61583 sta #3158  eahı h,ladeadresse 

41585 txa ; sekundäradresse nicht null: 

41386 bne 341596 ı linkbytes als ladeadresse verwenden -> 
61588 ida #a189 ı sonst: ladesdresse aus (al80,ai8i) 
61570 sta #a157 

61592 lda *a181 

615974 sta #a1589 


61396 as1396 isr abl1933 3 =--> "loading’ bzw. "verifying’” ausgeben 


61599 a61599 Ida #253 ; timeaut bit 

[= 2.1520 and *a144 

61683 sta #al44 s rücksetzen 

61665 jsr a65305 3 => stoptaste gedrückt? 

61688 bne a6l613 s nein: -> 

sil61n jmp a61951 3 => close bus 

61613 

61613 asl613 jsr a60555 ==> acptr: byte vom bus holen 
61616 tax 

61617 lda #3144 ; status 

61617 lsr a 

61628 lsr a 

61621 bes 361599 } timeout: ladeversuch wiederholen -" 
61623 txa 

61624 ldy *a147 ;ı verck: verify flag 

61626 beq 361652 ı ’load’ı -> 

61628 ldy #0 

61630 sta al991l i geladenes byte zwischenspeichern 
61633 Ida #3157 

61535 sta a2615 

61638 jisr a2009 ı > Ida (a),y: byte im speicher 
61641 cmp al9971 ; mit geladenen byte identisch? 
61644 begq a61654 s jas -> 

61646 lda #16 i "verify erraor’-bit 

61648 isr a62494 } => in status odern 

61651 „by 44 

61652 a61552 sta (al57),y ı geladenes byte speichern 

61654 a61654 inc #a157 i ladezeiger erhöhen 

61656 bne a61668 

61658 inc *a158 

Hlbbh asbl16hß bit *al44 ; eoi-bit gesetzt? 

61642 bvc 36153997 ı nein: —=> 

61664 jsr a61243 3 —? untalk 

61667 jsr 361969 3} ==> close bus 

61678 bec a61675 H > 

61672 a61672 jmp a6207& 3 ---> file not found 

61675 

61675 a61675 1dx #a157 ; l,lade-endadresse 

61677 ldy *a158 3 Aısen 

61679 a61679 rts 

616899 

61680 a61680 jsr a58139 ı => play-taste prüfen ggf. anfordern 
61683 bcs a61679 s stoptaste gedrückt: -> 

61685 jsr a61792 } oo: "searching for „..” ausgeben 
61688 a61688 Ida *#a17i ı fnlen: filename-länge 

61698 beq as1761 ; kein filename: -" 

61692 jsr a359937 3 ”7-> file header auf band suchen 
61695 bec a61708 ; gefunden: -> 

61697 beq a61679 ; "end-of-tape’-black gefunden: -> 
61699 bes 361672 ; header nicht gefunden: -> 

617081 

61781 as1701 jsr a59952 35 ---> block von band lesen 

61794 beq a61679 ;s "end-of-tape’-black gefunden: -> 
61706 bes a61672 ; keinen block gefunden: -> 

61708 a61708 Ida *a248 ; filetyp 

61718 emp #1 i programm’? 

61712 beq 361732 s jaı > 

61714 emp #3 » mit sekundäradresse 1 geschrieben? 
61716 bne a61688 ; nein: weitersuchen -> 


61718 361718 1dy #8 


41720 lda (al92),y ; l,ladeadresse aus file header 
61722 sta #a180 

61724 iny 

61725 lda (al82),y F Bynan 

61727 sta #alBl 

61729 jmp 3617386 

61732 

61732 a61732 Ida #al73 ; sekundäradresse 

61734 bne a61718 s» nicht nulls ladeadresse übernehmen -> 
61736 a61756 sec 

61737 ldy #2 

61739 lda (al82),y ; l,endadresse aus header 

61741 ldy #9 

61743 sbc (a182),y ; - l,anfangsadresse aus header 
61745 . tax ; = 1,file-länge 

61746 ldy #3 

61748 lda (al82),y ; h,endadresse aus header 

61759 ldy #1 

61752 sbc (al82),y ı - h,anfangsadresse aus header 
61754 tay ı = h,file-länge 

61753 cle 

61756 txa ; 1,file-länge 

61757 adc #3188 ı + 1,ladeanfangsadresse 

61759 sta #a157 ; = l,endadresse im speicher 
61761 tya ; h,file-länge 

61762 adc #a181 ; + h,ladeanfangsadresse 

61764 sta #23158 s = h,endadresse im speicher 
61766 lda *a180 ; l1,ladeanfangsadresse 

61768 sta #a178 ; 1,ladezeiger 

61778 lda #a181 ;ı h,ladeanfangsadresse 

61772 sta #2179 ; h,ladezeiger 

61774 jisr as1833 3 -7-> "loading „.." ausgeben 
61777 jsr 239635 3 => file vom band laden 
61788 bec a61675 s okı = 

61792 lda #29 ı load” 

61784 bit #147 ;s verck: verify-flag 

61785 bol 261679 ı loadı -> 

61788 lda #28 ; verify” 

61795 bne a61679 ;s immer => 

61792 

61792 a61792 Ida *al54 s msgflg: flag f meldungen 
61794 bel a61832 ı nicht gesetzt: -} 

61796 ldy #12 ; "searching" 

61778 jsr a6W362 3 => ausgeben 

Hıaal lda #*#a171 ; fnlen: filename-länge 

61803 beq 361832 ; kein filenames -> 

61805 ldy #23 ; for” 

61867 jsr 360362 3 0-3 ausgeben 

61810 asb181® Idy *#a171 } fnlen: filename-länge 

81812 beq 251932 ; kein filename: -> 

61814 ldy #9 

61816 as1816 Ida #a175 ; l,fnadr: adresse des filenamens 
61918 sta a2015 

61821 isr a2009 3 > lda (a),y 

61824 jsr 365490 i ——? bsaut 

61927 iny 

61828 cpy #al7l ;i filename schon ganz ausgegeben? 
Kıaza bne a6181& ı nein: -> 


619832 a61832 rts 


a61833 


a61841 


a61844 


4 a61966 


a618964 


361867 


361988 


a61924 


a61951 


#3 
a61B64 
#2 
a61864 
a62004 
#97 
*a173 
*a1l71 
a61888 
as2088 


a61445 
a61992 
*a174 
365972 
*2173 
361005 


y #0 


+3179 
*3156 
+a178 
*a195 
#3155 
360539 
*al5d 
360639 


*a155 

*a157 

*al56 

*2158 

abl 966 
#a155 

a2015 

32089 

asnhI? 
a&5505 
a6ı1958 
3619759 
#0 


Seite 


PPEE BEP PEEE 


a a 


a ar a SE a 


.. EFPERRREEPF) ee 


. 


ET BERFREFFESBRREFT 


"loading’ 

verck: verify-flag 
load: - 

’verifying’ 

---> meldung ausgeben 


SAVE 
l,endadresse 
Arena 

zeiger auf anfangsadresse 
l,anfangsadresse 

R,oon 

---> (36186%) 

log adresse 

nicht tastatur: -> 


---> illegal device number 


bildschirm? 


ı ja: fehler -> 


rs-2327 

ja: fehler -> 
kassette: -> 
sekundäradresse f save 
sa 

fnlen: filename-länge 
filename vorhanden; -> 
---> "file name missing” 


---> open bus 

---}> ”saving „..’ ausgeben 
fa: geräteadresse 

---> listen 

sa: sekundäradresse 

---> second 


h,save-anfangsadresse 
h,savezeiger 
l,save-anfangsadresse 
l,savezeiger 


---} ciout: byte auf bus ausgeben 


h,savezeiger 


---> ciout: byte auf bus ausgeben 


save-zeiger 
- save-endadresse 


nicht negativ: fertig -> 
save-zeiger 


---> Ida {a),y 


---> ciauts; byte auf bus ausgeben 


---> stoptaste gedrückt? 
nein: -? 
---? close bus 
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61958 a61958 inc *a155 ; save-zeiger inkrementieren 
61768 bne 361924 

61962 inc #al56 

619764 bne 361924 s immer > 

61966 


61966 a61966 jsr a61219 ---> unlisten 


61769 a61969 bit *a173 ; sekundäradresse 

619771 bmi a61996 ; bit 7 gesetzt: -> 

61973 lda #a174 iı geräteadresse 

61975 jsr 369972 5 => listen 

61978 Ida #*#a173 ;s skundäradresse 

6197808 and #4111@1111 

619782 ora #A11100000 
619784 jisr 361905 3 77: second 

619937 361987 jsr a61219 3 --> unlisten 
61998 a61996 cic 

617971 rts 
61992 

619792 a61992 Ida *a154 s msgflg: flag f meldungen 
619774 bpl 362052 s nicht gesetzt: -> 
61996 ldy #81 i "saving’ 

619778 jsr asd362 3 => meldung ausgeben 
62901 jmp a6181% ı —--> filenamen ausgeben 
2804 
62004 362004 jsr a58137 3 => record-taste prüfen ggf anfordern 
2507 bes a62956 ; stoptaste gedrückt: -> 
230997 isr a61992 3 7073 "saving ..." ausgeben 
62912 ldx #3 
62014 lda *%a173 ; sekundäradresse 

s2016 and #1 
625018 bne 352022 s enthält 1: -> 

H2Rn2B ldx #1 
6RB22 ab2022 stx *%a248 i filetyp 

2024 jsr 359732 3 => file header auf band schreiben 
62027 bes 362050 ı fehler: -> 

62929 lda #8 
62931 sta #a248 ; filetyp 

62933 jsr 358900 3 -7-> file auf band schreiben 
62036 bes a62050 s fehler: -> 

62538 lda *a173 ; sekundäradresse 
62040 and #2 s enthält 27 

62042 beg 362049 ; nein: -> 
62044 jsr a58864 3 777> "end-of-tape’-block schreiben 
62047 bes a62056 ı fehler: -> 

62049 362049 clc ; "ok’-flag 

62050 ab2050 Ida #0 

2032 a62052  rts 

62953 

BE gem nn STEP 

62053 

62053 a62053 Ida *a145 ;ı stkey 

62955 cmp #127 ; stoptaste gedrückt? 

62857 bne a62066 s nein: -= 

62557 php 

2060 jsr 365484 ==> clreh 

2063 sta #3239 ı ndx: tastaturpuffer löschen 
62955 plp 


2065 a62066 rts 


62067 3 EIZWSFEHLER 

62967 

62067 a62067 Ida #1 ; "too many files" 

62069 „by 44 

62970 a62070 1lda #2 ; "file open” 

62072 “by 44 

62073 a62073 Ida #3 ı "file not open’ 

62075 “by 44 

62076 a620976 Ida #4 ; "file not found’ 

62978 by 44 

62079 362079 1da #5 ; "device not present" 
s2uB1 „by 44 

620982 a62082 Ida #6 ; "not input file” 

62084 “by 44 

62085 362085 Ida #7 ; 'not output file” 

620897 ‚by 44 

2088 a62088 Ida #8 ; "missing file name’ 

BERG .by 44 

62991 a62091 Ida #9 ; "illegal divice number’ 
62073 pha 

62994 jsr 265494 3 ===> clrch 

62097 ldy #6 

62097 bit #a154 ; msaflg: flag f meldungen 
s21nl bvc a62113 s nicht gesetzt: -" 

62193 jsr a60362 i > meldung ausgeben 
42106 pla 

62187 pha 

62188 ora #48 ; nummer der meldung 

62116 jsr a65490 3-7 bsout 

62113 a62115 pla 

62114 sec 

62113 rts 

s21l6 

En TEST ÄRA ns nn on Zn nn nn NMI,„ START 

62116 

2116 a6d21l& 1dx #255 

62118 sei 

62117 txs ; prozessor-stack initialisieren 
62120 celd 

62121 jsr a53158 3 > modultab anlegen, vorh maduln init 
62124 jsr a62219 3 > ioinit 

62127 jsr a53007 3 => stoptaste dekodieren 
62130 php ; ergebnis merken 

62151 bmi a62149 ; taste nicht gedrückt: -> 
62133 lda #165 

62135 emp 21288 ; ramtas bereits ausgeführt? 
42128 beq as2143 ı ja —& 

62148 a62146 jsr a62299 3 > ramtası speicherpruefung 
62143 a62143 jsr a62158 4 => restor: vektoren initialisieren 
62145 jsr 359374 3 77> editor reset 

62149 plp ;ı war stoptaste gedrückt” 
621590 bmi a62155 ;s neinı -> 

62152 jmp a62533 3 > monitor call 

621553 

62155 3621559 jmp a32758 3 0} basic kaltstart 
62158 

Be RESTOR 

62158 

62158 a62158 1dk #1,262197 ; l,vektorentabelle 

62160 ldy #h,a62187 $ Mae 


&2ld? celc 
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VEETER 


; bei aufruf mit "sec’ werden die 


62163 a62163 stx #134 


62165 sty #a185 ; vektoren aus dem bereich 3796, ...,3817 
62167 ldy #31 ; an die durch {x,y) vorgegebene 
62169 a621&69 1lda a784,y ; adresse kopiert. 
62172 bes 362176 
62174 lda (al84),y ; nach "’clc’ erfolgt der kopiervorgang 
62176 as217& sta a786,y ı in umgekehrter richtung 
62179 bec a62193 
sale sta (al84),y 
62183 as218I dey 
62184 bpl a652169 
62186 rts 
62187 
62187 a62187 .si a52992 ; (a786&) interrupt intern (ohne i/o} 
62189 ‚si a52758 ; (a788) interrupt 
62191 .si a62540 ; (a796) monitor break entry 
62193 ‚si a61267 ; (a792) open 
62195 „si as1821 ı (3794) close 
62197 „si abd696 s (a796) chkin 
62199 .si a60768 ı (a798) ckout 
Ha2B1 „si a61196 > (3866) circh 
H2203 „si abß392 ’ (a8a2) basin 
2205 ‚si aba491 i (3984) bsaut 
62297 ‚si a62053 ; (aB05) stop 
62209 ‚si a60377 ı (3868) getin 
62211 ‚si a61192 ; (a810) clall 
62213 «si a625498 iı (a812) monitor break entry 
62215 .si a61514 ; (a814) load (a=ß) / verify la) 
62217 «si ab1368 i (a816) save 
62219 
a ee IOQINIT 
62219 
62219 a62219 Ida #4060@1111 ;s bits Q,.:.,3: output 
62221 sta #ad s bits 4,...,7: input 
62223 lda #400001006 
62225 sta #al ; kassettenmotor abschalten 
62227 ldx #255 
62229 stx 364784 ; 
62232 stx 363267 ; iec-port #9: output 
62235 inx 
62236 stx a65268 
62239 stx a65264 ; iec-port #8: daten 
62242 lda #64 
62244 sta a65247 
62247 jsr a6h9d& a 
62250 ab2250 Ida a62264,x ; bildschirm-controller 
62253 sta a6s5280,x i programmieren 
62256 inx 
62257 cpx #26 
62259 bne a62250 
62261 jmp a60230 Hi 
62264 
62264 a62264 „by 241 3790092778698 ; parameter für bildschirm- 
62274 ‚by 2 m4 009000 4 208 ; contraller 


62284 „by 8 113 91 117 119 118 


62299 3- 

62298 

62290 a622970 Ida #0 

62292 tay 

62293 a62293 sta a2,y 

62296 sta aSl2,y 

62299 sta a769,y 

62302 sta al924,y 

62395 sta a1792,y 

62308 iny 

62309 bne 362293 

62311 ldx #8 

62313 stx *#a159 

62315 a62315 Ida 65525,% ; speicherobergrenze ermitteln 
62318 sta 65325, x 

62321 cmp 16373; 

62324 bne 362327 

b2326 iny 

62327 a62327 cmp 32737,x 

62330 bne a62334 

62332 dec #2159 

62334 a62334 dex 

62335 bne as2315 

62337 cpy #8 

62339 beq a62348 

62341 lda *a159 

62343 bne a62353 

62345 ldy #127 ; memtop = 32759 
62347 „by 44 

62348 a62248 1Idy #63 ; memtop = 16374 
62350 ldx #246 

62352 „by 44 

62353 a62353 1dy #253 ;i memtop = 64758 
62355 EIE 

62356 jisr a62511 3 7} memtop 
62359 lda #16 

62361 sta also : membot = 4996 
62364 ldx #58 

62366 a62366 Ida as2413-1,x } funktionstasten programmieren 
62369 sta al375-1,x 

62372 dex 

62373 bne a62366 

62375 stx al373 

62378 Idx #11 

42390 a62386 Ida a53171,x ; ram-laderoutine kopieren 
62383 sta a2009,x 

62386 dex 

62397 bpl a6239% 

62389 ldx #15 

623971 a62391 Ida a57567,% ; farbkodes ins ram kopieren 
623974 sta a275,x 

62397 dex 

623978 bpl as2391 

62490 lda #165 

62492 sta a1288 ; flag f ’ramtas ausgeführt” 
624095 lda #4 

62487 sta a2642 

62419 lda #24 

62412 sta a2643 

62415 rts 

62416 


62416 „by 234 274 


62503 
62503 
625073 
2503 
62505 
62508 
62511 
62514 
62517 
62518 
2518 
82518 
62518 
62520 
62523 
62526 
62529 


625332 
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a62418 .by 76198784595 ; längen der texte 
“by "graphic’ 
„by "dload"” 
‚by "directory’ 13 
„by "scncelr’ 13 
.by "dsave"” 
«by run’ 13 
“by "list’ 13 
«by ’help’ 13 
: 
u SETNAM 
a6b247& sta #al7l ; fnlen: filename-länge 
stx #a175 ı l,fnadr: adresse des filenamens 
sty #al76 3 Dysen 
rts 
EEE SETLFS 
a624983 sta #a172 ı las logische adresse 
stx #174 ; fa: geräteadresse 
sty #a173 ; sar sekundäradresse 
rts 
a nn Si = SETMSG 
a62490 sta #3154 s msgflg: flag f meldungen 
EB nn READST 
a62492 Ida #a144 ; status 
as2494 ora *a144 
sta #a144 
rts 
Dan an nn nn DSDS SS SETTMO 
362499 sta al333 ; timesut-flag 
rts 
nn Zn nn nn MEMHTUER 
as2I0F i cc; obergrenze setzen -> 
 l,speicher-obergrenze f basic 
3 Dynsu 
as2s1l 
gem nenn MEMRBROT 
a62518 iı cc: untergrenze setzen -> 
; l\,speicher-untergrenze f basic 
; Hass“ 
ab2524 


249 62533 


MONITOR CALL 


62533 stx al364 ; prozessor-status 

62538 beq 362532 

62548 

Be MONITOR RREAK 
62549 

62540 262540 cld 

62541 ld #5 

62543 a62545 pla 3 brk=-adr, p, a, x, y vom stack holen 
62544 sta al362,x s und ab a1362 speichern 

62547 dex 

62548 bpl 362543 

62559 ldx #9 ; f ausgabe "break” 

62552 362592 stx a20I6 

62339 lda #7411003000 ; ermöglicht alle meldungen 

62557 sta #a154 ı msaflg 

62559 ts% 

62568 stx al36s8 

62565 ldx 32036 

62566 jsr a33094 3 > "monitor’ bzw. "break” ausgeben 
62567 lda a65284 

62572 ora #16 

62574 sta 365286 

625377 lda #0 

62579 sta #alöl 

2581 sta *ald2 

62583 cli 

62584 

a ne R 

62584 

62584 362584 Id #15 

62586 jsr a53094 3 ---> register-kopfleiste ausgeben 
2597 Ida alis?2 ; h,break-adresse 

6235392 jsr 364272 } > ausgeben 

62595 ldy #8 

62597 362597 Ida al3os,y ı 1,break-adresse, pP, 8% %, Y, Stp 
42660 jsr a64261 } ==> ausgeben, ° ausgeben 
42603 iny 

62604 cpy #46 

62406 bec 362597 

yel=13]=} bes a62613 ı cr, eingabeschleife -= 
62619 


9» 


62610 ab2s19 jsr a64267 
Ha6lE ab2sl3 jsr a64314 


ausgeben 
> cr ausgeben 


... 


bR6l& Id Ha 

s2618 stx #a243 ; zeiger in eingabe-puffer 
2628 a62628 jsr 2653487 3 => basin 

62423 sta all, ;s eingabe in puffer speichern 
62626 inx 

62627 cmp #13 

62629 bne 262629 

62631 dex 

62632 stz #2244 i puffer-endezeiger 

42634 362634 jsr a64319 B > zeichen aus puffer 
62637 beg a62613 ;s ende erreicht oder ’:' gefunden: -> 
62637 cmp #’ 


% 


62641 bea ab2434 leerstellen überlesen -} 
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627238 
627239 
62732 


ı #15 
a62972,x 
ab2655 


362645 


a62645 
362619 
a62633 x #13 

362673 


asl a 
ab2848+1,% 
ı a62848,x 
364173 
a62673 


al371 
363086 


362679 362689 
364347 
a64173 
362695 
#11 
*a241 
362709 


362687 


362695 as4336 
lsr a 
*#a241 
lsr a 
*a241 
lsr a 
*a241 


a62799 


364406 
a64376 
342709 
ab2727 a62&a13 


362744 


Pre 


wu wr 


EPPEPRPREFPEPERBE?T 1“. 


zeichen in kommando-tabelle suchen 
gefunden: -> 


zeichen nicht in tabelle: -> 


kommando ’1’, ’s’ oder ’v’? 


jat > 


V 


offset in adressentabelle 
h,routinenadresse 

Is-os 

---} adr übernehmen, rts ruft routine 


kommando {l, 5, v) 
---} kommando ausführen 


M 


keine adresse: -" 

adr in zgr (al6i/als?2) kopieren 
---} 2, adresse übernehmen 

adresse angegeben: "> 

zeilenzähler setzen 


immer -} 
---> länge des bereichs berechnen 


durch 8 dividieren 
und in zeilenzähler bringen 


» stoptaste gedrückt? 


> zeile bytes % zeichen ausgeben 


(a) zum zeiger addieren 
» zeilenzähler dekrementieren 
kein unterlauf: > 


---> cr, eingabeschleife 


fertig -> 


l,programmadresse 
Nasas 


byte übernehmen 
zeilenende: fertig -:> 


Ps 8 y, stp speichern 
schon 5 bytes übernommen” 
nein: -> 
immer —" 


62862 
62804 
62897 
62818 
62811 
62815 
6281& 
62817 
62818 
62820 
62822 
62825 
62828 
62931 
62932 
62832 
62832 
62832 
62848 
62848 
62859 
62832 
62854 
62856 
62858 
62858 
62362 
62864 
62966 
62868 
62878 
62972 


a62768 


a62795 


a62997 


a62848 


a62782 
*a241 
(al6l),y 


27 ’o0’ 145 8 
362874 
as2613 


al568 


ı #0 


al362,x 


"smrgteda.hf>31sv” 


a32771-1 
a62679-1 
a62584-1 
a62795-1 
a62929-1 
a62926-1 


i a63268-1 


a63775-1 
a63775-1 
362999-1 
a63242-1 
a62761-1 
a62730-1 


. 


Pr 


Pr 


a 


keine adresse -> 
e 


---> adr in zgr (aldil/ald2) kopieren 


---> byte übernehmen 
zeilenende: -> 


byte unter adresse speichern 
schon 8 bytes übernommen? 
nein: -> 


---> *’esc o kursor nach oben” ausgeben 


---> zeile bytes % zeichen ausgeben 
---> cr, eingabeschleife 


G 
keine adresse: -> 


aktuelle adresse 
als programmadresse übernehmen 


stack zeiger 
setzen 


programmadr u status auf stack legen 


register setzen 


ga 


KOMMANDO-TABELLE 


van tra ii 3° 


hr: 


BYTES & ZEICHEN AUSGEBEN 


a62874 


362897 


a62706 


a62917 


262929 


362748 


a6297537 


a62969 


a62975 


: a62983 


a629786 


i ZEILE 


a64314 
#62 


a53142 


#8 


a64314 
#0 
ags142 
*2187 
a62957 
(a241),y 
(a24l),y 
352969 
365305 
362993 
a64251 
*a241 
a62975 
*3242 
a64464 
a64390 
362748 
a62613 


ab2610 


PRRBLPT EERRBL ee 


u. 


Ka ER Ar Aa na 


PT EPRRELFPERRRBEPF) 


u... 


---? cr ausgeben 


> bsout 
---} adresse ausgeben 


---> Ida (aiöl),y: byte holen 
---> ausgeben, ’ ” ausgeben 


schon 8 bytes ausgegeben? 
nein: -> 


a; 


=--> ”:;°” ausgeben, "rvs’ einschalten 


---> Ida (aldl),y: byte holen 
bit 7 löschen 

steuerkode? 

nein: -> 
durch °’. 
---> bsaut 


E 


ersetzen 


schon 8 zeichen ausgegeben? 
nein: -> 


---> quelladresse u blocklänge holen 
keine adressen: fehler -" 

---> zieladresse übernehmen 

keine angabe: fehler -> 

---> cr ausgeben 


---> lda (alöl),y: byte holen 


’compare’: -"> 


---> stoptaste gedrückt? 
jat > 

---; quelladresse ausgeben 
zieladresse erhöhen 


> quelladresse erhöhen 
---}> zeichenzähler dekrementieren 
kein unterlauf: -> 


% 


---" cr, eingabeschleife 


+ fehler 


2990 262999 


aan 
63002 
63904 
436097 263697 
63310 
63811 
63014 
63916 
63518 
63020 


3022 ab3022 
63025 
363028 


37 
630939 
63041 
3043 a63043 
au3047 
BIT 362057 


63968 
63571 


384 
63086 


as441& 
a62786 
#0 
as4317 
4° 
abs3022 
3643197 
asdT,y 


a64317 
ah3943 
#32 

a63507 
as3043 


' 31372 


a64171 
*a241 


ı ah, y 


364173 
as3nd3 
#32 
ah 
alz7ı 
ab4314 


ı #0 


#0 
333142 
ELTERN 
a63976 


ı al37l 


363053 
365595 
362983 
264251 
264404 
354399 
363049 
362983 


nr 


a a en er PP ZEPPEEE 


BBBE I 


63086 
ası3oas 


Ha1ol 
E10 
63105 
63107 
63110 


abs197 


#h, a6®5 
+a175 
#1,a505 
*3175 


“ a64319 


---> adresse und blocklänge holen 
keine angabe: fehler -> 


—— 


zeichen aus puffer 


---} zeichen aus puffer 


» zeichen aus puffer 
trennzeichen: -" 

schon 32 kodes übernommen? 
nein: -> 


---} byte übernehmen 


---: byte übernehmen 
zeilenende: -" 

schon F2 bytes übernommen? 
neint > 
zeichenzähler 
---: cr ausgeben 


---> Ida (al&sl),y: byte holen 
und mit vorgabe vergleichen 


nicht gleich: -} 


alle bytes verglichen? 
nein: -> 
---> stoptaste gedrückt? 


adresse ausgeben 

zeiger in block inkrementieren 
---: blacklänge dekrementieren 

kein unterlaufs -> 

immer —:> 


vorbesetzung I für 
fs: geräteadresse 

sa: sekundäradresse 
vorbesetzung 5 für 
tnlen: filename-länge 
status 


h,fnadr: adresse des filenamens 


Yopi 


zeichen aus puffer 
trennzeichen: -} 


63112 cap #° ; leerstellen überlesen 
63114 beq a63197 

63116 cmp #°" 

63118 bne 363143 ; fehler -} 

63120 ldx *3243 ; zeiger in eingabe-puffer 
63122 assl22 cpx *a244 ; pufferende erreicht? 

63124 bes a63206 3 jas > 

63126 lda a512,x ; zeichen aus puffer 

63129 inx 

63130 cmp #°" ; ende des filenamens”? 

63132 beg a63147 ja 

63134 sta (al79),y ı filenamen in monitor-puffer kopieren 
63136 inc *al7l ; fnlen inkrementieren 

63138 iny 

63139 cpy #17 » schon 17 zeichen gelesen? 
63141 bec a63122 s mein: -> 

63143 a63143 jmp a62619 3 ==> fehler 

63146 

63146 nop 

63147 

63147 a63147 stx *a243 ; zeiger in eingabe-puffer 
63149 jsr a64319 } => zeichen aus puffer 
63152 jsr 364173 ; 77-> geräteadresse übernehmen 
63155 bes a63206 ; keine adresse: -> 

63157 lda *a241 ; geräteadresse 

631597 beq a63143 ı = 8 fehler -} 

63161 cap #3 

63163 beq ad3143 ;ı = 3: fehler -> 

63165 sta #3174 ı fa: geräteadresse 

63167 jsr 264173 3 => anfangsadresse übernehmen 
63170 bes ab32R6 ; keine angabe: -> 

63172 jsr 264347 3 => adr in zgr (aldöi/ald?) kopiere 
63175 jsr a54173 3 => endadresse übernehmen 
63178 bes as3143 ; keine angabe: fehler -" 
63188 jsr a64314 3 77-3 cr ausgeben 

63183 ldı *a241 i l,endadresse 

63185 ldy #3242 3 Hysse 

631897 lda ai371 ; kommanda 

63198 cmp #’s 

63192 bne a63143 ; fehler -} 

43174 lda #0 

63196 sta #31773 ; sa: sekundäradresse 

635198 lda #alöi ;ı zeiger auf anfangsadresse 
432008 jsr 365496 3 ==> save 

3203 363203 jmp as2613 3 ---> cr, eingabeschleife 
63206 

63206 ab3206 Ida al37l ; kommando 

63209 cmp #’v 

63211 beq 363217 

63213 cmp #’1 

63215 bne a63143 ; fehler -> 

63217 lda #0 

63219 a62219 jsr 265493 3 77-> load 

63222 ida *a144 ; status 

63224 and #16 ; lese- oder verifizierfehler” 
63226 beq 363205 ;ı nein: zur eingabeschleife -> 
63228 lda al371 ; kommando 

32a cmp #’1 

63233 beq a63143 s fehler -> 

43235 ldı #42 ı ’error” 

63237 jisr a53094 3 777: meldung ausgeben 
63240 bmi a6s32073 i zur eingabeschleife -> 


63339 
63346 
63341 
63343 
63346 
63330 
63353 
633393 


Seite 255 o5242 
no F 
a63242 jsr a6441& 3 =-> adresse und blocklänge holen 
bes a63143 s micht angegeben: fehler -> 
jsr a64173 3 =77> füllkode holen 
bes a63143 ;ı keine angabe: fehler -} 
ldy #0 
a63254 Ida *a241 » füllkode 
sta (aldl),y s abspeichern 
jsr 364404 3 77} bereichszeiger inkrementieren 
jsr 264395 3 7} blocklänge dekrementieren 
bes a63254 ; kein unterlauf: -> 
bec 2632053 ’ zur eingabeschleife -> 
De D 
a63268 bes a63278 : keine adresse: -> 
jsr a64347 3 77-> adresse in zeiger kopieren 
jsr a64173 3 ---> endadresse übernehmen 
bec 263284 ; endadresse vorhanden: -> 
a63278 Ida #20 
sta #a241 ; zeilenzähler auf 26 setzen 
bne a43287 immer -> 
a63284 jsr a64356 } => bereichslänge ermitteln 
a632937 jsr a64314 3 77-3 cr ausgeben 
jisr a653995 ; > stoptaste gedrückt? 
beg a63263 3 ur eingabeschleife 
isr aa3314 3 =7-> zeile disassenblieren 
inc *=3246 ı operandenrlänge + 1 
lda #a24& ; = befehlslänge 
ijisr a64406& 3 =--> adresse um befehlslänge erhöhen 
lda *3245 ; befehlslänge 
isr a64372 } 77} von endadresse subtrahieren 
bes a63297 ; ergebnis positiv: weitermachen => 
bec a63293 ; zur eingabeschleife -> 
a6b3314 Ida #°. 
jsr 245479 > bsout 
jer 364264 >» °” ausgeben 
2 ab3322 jsr a64251 > adresse ausgeben 
jsr 364264 ’” ausgeben 
ldy Ha 
jsr a55142 3 -7-> Ida (ai6öl),y: opkode halen 
jisr a62444 3 77} opkode analysieren 
pha ; tabellen-offset merken 
ldx #23245 ; zahl der operandenbytes 
inx ; befehlslänge 
aba dex ; alle bytes ausgegeben? 
bpl 353354 ı mein: -> 
isr a64472 u Bit ” ausgeben 
‚by ” “10 
jmp as3I6ß u 
nop 


633797 
63581 
63384 
63385 


63400 
63462 
63405 
63488 
63411 
63413 
63415 
63417 
634197 
63420 


63420 3 


63428 
63428 


63423 


63424 
63426 
63428 
63429 
63432 
63432 
63434 
63435 
63437 
63438 

3448 
63442 
63443 
63444 
63444 
63444 
63444 
63445 
63445 
63448 
63449 
63451 
63453 
63455 
63457 


a63334 


3 ası360 


a63381 


a63397 


s6341& 


a63420 


363429 


ab3432 


3643438 


a63443 
ıopE 


a63444 


jsr 
elc 


bne 
ink 
jmp 


ldx 
tay 
bpl 
dex 
ade 
bee 
in» 
rts 


od 


tay 
lsr 
bee 
lsr 
bes 
emp 
beq 
and 
ara 


aysı42 
a64261 


#3 
363340 


x #3 


a653315 


ı #6 
x #3 


a63397 
*a246 
a63397 
al355 
232 
as3142 
ab3420 
ab4272 


ab3381 
al33s 
a&s5416 
asass1-1,8 
as3498 
a63637-1,8 
a63416 
3653498 


4 


ab337. 


Ian 


dresse Fü 
a63432 


#1 
a63429 


a64255 
*al62 
a63438 


*al6l 
a63443 


e analysie 


a 
a63459 
a 
a63474 
#24 
a63474 
#7 
#128 


un en 


r 


EPFESPEEEFPESPHBEFT EERPEEPFE 


---: Ida {alsl),y: abjekt-byte holen 
---} und als hex-ziffer ausgeben 


maxkimalzahl 3 
nach nicht erreicht: -> 
tabellenoffset für opkode 


---: mnemao zum opkode ausgeben 
operandenwort erzeugen 


operandenlänge 

= ur 

adressierungsflag 

1,8#*157: branch-befehl 

---:> Ida (alöl),yı operandenbyte 
branch-befehl: -} 

=} ausgeben 


adressierungsflag 

bit nicht gesetzts -} 
symbol aus tabelle 

-—-} bsout 

zweites symbol aus tabelle 
= &ı nicht ausgeben -> 
---} bsout 


branch berechnen 
---> operand zur adresse addieren 


ergebnis inkrenentieren 


---} zieladresse ausgeben 


h,adresse 

operand 

kleiner als 128: -" 
sonst rückwärtssprung 
cperand + l,adresse 
kein übertrags -> 


en 


befehlskode 
bit & gesetzt” 
nein: -> 

bit 1 gesetzt? 
ja: fehler -> 
opkade 1377 
ja: fehler -" 


63448 tax 

63461 Ida a63349,% ı offset für adressierungs-flag 
63464 bes a63478 ; bit ® gesetzt: unteres halbbyte -> 
63465 lsr a ; sonst oberes halbbyte 
63467 lsr a s nach unten schieben 

63468 lsr a 

63469 lsr a 

63470 a63470 and #15 ; unteres halbbyte isolieren 
63472 bne 263478 ; ergebnis nicht nulls ok -> 
65474 362474 1dy #128 ; fehler-einsprung 

63476 lda #0 

63478 a63478 tax 

63479 Ida a63617,x ; adressierungs-flag 

63482 sta al355 ; merken 

63485 and #3 

63487 sta #2246 ; operandenlänge 

63489 tya s opkode 

63498 and #4108@1111 

63492 tax 

63493 tya 

63494 ldy #3 ;ı ermittlung des offssts 
63496 cpx #7410061618 

63498 beg a63S11 

H3sum au3Ton 1lsr a 

63501 bee as3S1l 

3303 lsr a 

63504 a63504 Isr a 

63305 ara #400100900 

63397 dey 

63508 bne 3633904 

63518 iny 

63511 3643511 dey 

63512 brne as3309 

63514 rts 

63515 


63515; anemo zum opkode ausgeben 
63515 


63315 as3S15 tay opkode-aoffset 


63516 lda as3643,y ; bytes aus tabellen holen 

63519 sta #a159 

35m Ida a63797,y 

63524 sta #al60 

63526 a63526 Ida #0 

63528 ldy #5 ; jeweils 5 bits ergeben 1 buchstaben 
63530 a63520 as] *aldd 

63332 rol *a159 

63534 rol a 

63333 dey 

63556 bne as3S530 

63538 adc #°? ; ergibt buchstabenkode, bei 6: '?" 
63548 jsr 365496 3 > bsout 

63543 dex 

63544 bne a63526 


63546 jinp 364254 ---} ° " ausgeben 


. 


63637 
63643 
63643 
63651 
63659 
63667 
63675 
63683 
63691 
636997 
63797 
63797 
63715 
63723 
63731 
63739 
63747 
637535 
63763 
63771 
63771 
63775 
63775 
63775 
63775 
63777 
53788 
637820 
63783 
63785 
63787 
637979 
63792 
637974 
63796 
63799 
63799 
63981 
63805 
63805 
63897 
638997 
H381li 
63812 


| Tr EEE EEE TABELLEN 
a63549 .by 64 2 69 3 2098 8 64 9 48 34 
«by 69 51 208 8 64 9 64 2 69 51 
.by 208 8 64 9 64 2 69 179 208 8 
‚by 64 9 0 54 48 51 208 146 68 8 
«by 17 34 68 51 208 1409 68 154 16 34 
‚by 48 Si 208 8 64 9 16 34 68 Si 
‚by 208 8 64 9 98 19 120 169 
a6b3617 .by 8 I2 129 130 0 0 89 77 145 146 134 74 133 157 
abs3631 „by ",),#($” 
ab3637 by ’y’ 0 ’y$$" 8 
ab3643 „by 28 139 28 35 93 139 27 161 
„by 157 138 29 35 157 139 29 161 
‚by a 41 25 174 195 168 25 35 
.by 36 83 27 35 36 83 25 161 
‚by @& 26 91 91 165 195 56 I6 
.by 174 174 168 173 41 0 124 0 
“by Z1 156 199 156 165 105 41 83 
‚by 132 19 52 17 165 105 35 168 
a63707 „by 216 98 98 72 38 98 148 136 
by 84 &8 Zum 84 164 48 232 148 
.by & 186 8 132 116 186 46 119 
„by 116 244 Zu4 74 114 242 164 138 
„by 8 178 162 162 116 116 116 114 
.by 48 104 178 56 178 8 34 8 
‚by 24 26 38 38 114 114 156 200 
‚by 194 202 38 72 68 48 142 200 
‚by 15 32 32 32 
a A 
as3773 bcec 263780 ; adresse angegeben: -" 
jmp as26ıln i 7773 eingabeschleife 
a63780 jer a64347 3 =--> adresse in zeiger kopieren 
a63783 1Idx #8 
stx #a126 
a63797 jsr a64319 $ => zeichen aus puffer 
bne 3637997 ; kein trennzeichen: -> 
cpx #8 ; trennzeichen am pufferanfang”? 
brıe 3637997 ı nein: -> 
jmp as2&1J3 } => eingabeschleife 
363799 cmp #” ; leerstellen überlesen 
beq 363783 
sta al3S6,x ; befehlswort nach 
inx si a1396,...,21358 kopieren 
cpx #3 
bne a63797 
asasll dex 
bmi as3B32 
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63822 
63823 
63825 
63827 
63828 
63830 
63832 
63832 
63934 
63837 
63839 
63841 
63843 
63846 
63848 
63851 
63853 
63855 
63857 
63859 
63861 
63862 
63864 
63865 
63867 
63869 
63971 
63973 
63876 
63978 
63881 
63884 
63887 
63899 
63892 
63893 
63896 
63899 
63992 
63995 
63997 
63999 
63911 
63913 
63915 
63918 
63929 
63922 
63924 
63927 
63928 
63939 
63933 
63935 
43938 
63941 
63944 
63946 


a63822 


a63832 
a63934 


a63362 


363869 


363876 


a637%7 


a63930 


a63922 
absall 


#2 
a64319 
a63869 
4 
a63854 
a64125 
a638962 
a64139 
+a24l 
*a242 
*a241 
#0 
*all9,x 


*all9,x 
30 


a63934 
*3159 


#0 
1 a1359 


#0 
al36öd 
al359 
a63444 
al35s 
+al66 


a63707,% 
264094 
ab3b43,x 
2640994 
#5 

#3 
ab3930 
*a246 
aus 30 
al35s 
#232 
#’0 
343954 
a6 


ab3915 
al3ss 
a63949 
asFssl-1,n 
ab4u94 
ab3637-1,4 
363949 
264994 


a ee 


PPPESPREEFF . 


a 


[PT EEPPEEFT BERFBEPT BERPBErT 


a E 


PT BERPELFTEERF 


jedes byte des befehlswortes 
wird in den bereich 1,...,27 
transformiert, das sind 5 bits; 
aus den 3 * 5 bits werden 

2 bytes in all9,al20 erzeugt 


---> zeichen aus puffer 
trennzeichen: 
leerstellen überlesen 


---> hex-ziffer? 

nein: -> 

---> zwei hex-ziffern in byte wandeln 
voriges byte 

hochschieben 

neues byte speichern 


ende-offset merken 
testkode 


vergleichs-offset 
testkode 

---> disassemblieren 
adressierungsflag 

merken 

opkode-affset 

byte aus zweiter tabelle 
---: vergleichen 

byte aus erster tabelle 
---}> vergleichen 

beide bytes waren gleich 


operandenlänge 

= Br -> 
adressierungsflag 
branchbefehl? 


jas -> 
---} vergleichen 


adressierungsflag bitweise ins carry 
flag nicht gesetzt: -> 

symbol aus tabelle 

---: vergleichen 

zweites symbol aus tabelle 

= 8: -> 

---> vergleichen 


63949 363949 dex 


63956 bne 363907 

63952 beq a63960 

63954 

63954 a63954 jsr a64n91 3 a 

63957 jsr a64091 3 7775 vergleichen 

6739689 a63960 Ida *#a159 ; ende-affset 

3962 cmp al3sı ; = vergleichs-offset? 
63965 beq 363970 s jas => 

63967 jmp a64106 3 ==> testkode erhöhen 
63970 

63770 a63970 1Idy *a246 ; operandenlänge 

63972 beq a64926 ı=0ı -N 

63974 lda #al6ß ; adressierungsflag 

63976 cmp #157 ı branch? 

63978 bne' a64018 s nein: > 

639789 lda *a241 ; zieladresse 

639782 sbc #alöl ; — befehlsadresse 

639784 sta al36ıl » = operand 

63987 lda #a242 

63989 sbc *ald2 

639771 bec a64902 ; negativ: rückwärtssprung > 
63993 bne a&4114 s nicht null: fertig -> 
63995 ldz alssl ; operand 

639798 bmi as4114 sı negativ: fertig -> 

4a bpl as4aaıll ı sonst => 

RE 

64002 ass Lay ; h-byte 

64 iny ı = 2557 

64504 bre a64114 ; nein: fertig - 

aD ldz alzel ı 1-byte 

64569 bpl as411i4 ; kleiner als 128: fertig -" 
e4bil as4611 dex 

6412 den 

64513 txa 

64014 ldy #a246 ; operandenlänge 

banls bre a64821 s nicht null: > 

64918 as4slB Ida a240,y ; operanden 

aazl a64m2l sta (aldld,y ; abspeichern 

6423 dey 

sand bne as4B18 

64026 as402h Ida al359 ı opkode 

427 sta (aldl),yv ı abspeichern 

64631 jsr 264309 3 ==> auf zeilenanfang zurücksetzen 
64934 ld #48 

EL lERTe) B "a error” ausgeben 
64937 H > adresse ausgeben 
64942 ; operandenlänge + 1 

64644 Ida #a246 ı = befehlslänge 

6454 jsr 364496 3 ==> adresse um befehlslänge erhühen 
64949 lda #’a ut 

4451 sta al319 ; in tastaturpuffer 

64954 Ida 4° 

64056 sta alı19+l 

64959 sta al319+& 

sans da #ald? ı h,adresse 

4964 ist a64288 3 =7-> in 2 hex-ziffern wandeln 
6467 sta alIlF+2 » und in tastaturpurffer 


64979 stx al3i19+3 


64873 
64875 
64978 
saugl 
64984 
64986 
64988 
64591 
64971 
64 
64091 
64894 
64897 
64188 
64102 
64104 
64105 
64106 
641997 
s41llil 
64114 
64114 
64117 
64117 
64118 
64121 
64124 
64125 
64125 
64125 
64125 
64127 
64129 
64131 
64132 
64132 
64134 
64136 
64138 
64139 
64139 
64139 
64139 
64142 
64145 
64144 
64145 
64146 
64149 
64152 
64155 
64158 
64159 
64166 
64168 
64162 
64163 
64165 
64166 
64168 
64178 


ı tes 


a64671 
364094 


a64106 


ads4114 


a64117 i 


a64132 


a64139 


a64158 


ab4168 


364178 


al319+3 


2649974 
a2a3g 


x al36® 


*all9,x 
364117 


a1357 
a64114 
a63975 


a62618 


ı al3606 
ı 22035 


hex-ziffter 


a64150 


#58 


#15 


a64178 
#8 


IPPESPFEEFTI 


IPPESPREEFT 


PPTEPFREEFF) 


l,adresse 
---} in 2 hex-ziffern wandeln 
und in tastaturpuffer 


7 kodes sind im puffer 


;ı = tastaturpuffer-index 


---* eingabeschleife 

gabe vergleichen 
---> byte vergleichen 
vergleichs-offset 

(a) mit eingabe vergleichen 
gleich: -: 

rücksprungadresse entfernen 
testkode erhöhen 

alle kodes getestet: fertig -> 


---> nächsten kode testen 


---> eingabeschleife 


vergleichs-offset erhöhen 


tffer 


in byte wandeln 


---> erste ziffer in halbbyte 
halbbyte nach oben schieben 


und merken 

---> zeichen aus puffer 

-7-> zweite ziffer in halbbyte 
mit erstem halbbyte odern 


dezimal-ziffer? 


jas #2 
+ carry macht 18 aus 


’a’ usk. 


Bi Im 

64171 

64171 a64171 dec #a243 

64173 

Balz ADRESSE ÜBERNEHMEN 
64173 

64173 a64173 Ida #8 

64175 sta #a241 ; adressenspeicher löschen 
64177 sta *%a242 

64179 sta a2056 ; ziffernzähler rücksetzen 
64182 a64182 jsr a644317 1 => zeichen aus puffer 
64185 beq a64245 ; trennzeichen: -> 

64187 cmp #’ ; leerstellen überlesen 
64189 begq a64182 

64191 a64191 cmp #* 

64193 beq 364241 

64195 cmp #’, 

64197 beq a64241 

64199 camp #’® ; hex-ziffer? 

64201 bec 364246 ;ı nein: fehler -> 

64253 cmp #’q 

64205 bes a64246 ; nein: fehler -> 

64267 cmp #°: 

64299 bec 364217 

64211 cmp #’a 

64213 bcec a64246& ; nein: fehler -> 

64215 sbe #8 

64217 a64217 sbc #47 

64217 asl a 

6422 asl a 

64221 asl a 

64222 asl a 

64223 ld« #4 

64225 a64223 aslıa 

6422 rol #2241 ; bits in adressenspeicher rotieren 
64228 rol #a242 

64230 dex | 

64231 bne a64225 

64233 inc a26056 

6423 jsr 364319 5 => zeichen aus puffer 
64239 bne as4191 } kein endezeichen: nächste ziffer -> 
64241 a64241 1da 226536 ;s anzahl der ziffern 
64244 elc 

64245 a64245 rts 

64246 

64246 a64246 pla 

64247 pla 

64248 jmp as2619 3 7-> fehler 

64251 

64251 a64251 Ida *#aldl ; l,adresse 

64253 ldx *al62 3 Massa 

64255 a64255 pha 

64256 txa ; h-byte 

64257 jsr a64272 3 77-> ausgeben 

64260 pla ; 1-byte 

64261 a64261 jsr a64272 3 70: ausgeben 

64264 a64264 Ida #’ 

64266 “by 44 


64267 a64267 Ida #°? 
64269 imp a6549% 3 77-:> bsaut 
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64358 
64309 
64367 
64311 
64314 
&431& 
64317 


64319 3 


64319 
54319 
64322 
64324 
64326 
64328 
64331 
64333 
64335 
64337 
64338 
64341 
64342 
64343 
64343 
64345 
64347 
64347 
64347 
64347 
64349 
64351 
64353 
64355 
64356 
64356 
64356 
64356 
64357 
64359 
64361 
64363 
64345 
64367 
64369 


a64272 


a64288 


364299 


a64306 
a64309 


as4314 


364319 


a64337 
a645343 


radr 


a64347 


ab43I6 


ı a2035 


a64298 
a65499 


{ a2035 


365498 


a64298 


nm m m 


a 

#15 
#10 
a64305 
#6 
#48 


#145 
3654970 
#13 
as54978 


ei Mm aus 


{ a2035 


*a243 


ı #244 


a64343 
asılz,x 


pu 


£ 
1 


m 


u... 


a er 


. 


. 


m 


---> byte in 2 hex-ziffern wandeln 
---" 1. ziffer ausgeben 
2. ziffer 


---> ausgeben 


byte auf stack legen 

---} unteres halbbyte in hex-ziffer 
2. hex-ziffer 

byte erinnern 

oberes halbbyte nach unten schieben 


unteres halbbyte isolieren 
kleiner als 18? 

jias => 

sonst 7 addieren (carry!) 
ascii-kode erzeugen 


"kursor nach oben’ 
---> bsout 

er 

---> bsout 


er lesen 


x merken 
pufferzeiger 
= pufferende? 
jar 

zeichen aus puffer 
trennzeichen? 

ja => 

pufferzeiger erhöhen 


x erinnern 


simuliert trennzeichen 


r kopieren 


se subtrahieren 
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643790; adressen 


64378 
64378 
64372 
64375 
64376 
64378 
64381 
64383 
64385 
643897 
64389 
64396 
64398 
BuRcz 
64393 
64395 
64397 
64399 
64401 

64463 
64454 


64404 ; 


64404 
64404 
64406 
64497 
64409 
64411 
64413 
b4415 
64416 
64416 
64416 
6441& 
64418 
64421 
64424 
64426 
64429 
H4A31 
64433 
64435 
64437 
64438 
64439 
64439 
64439 
64439 
54442 
64445 
644489 
64449 
64449 
64452 
64455 
44458 


364378 
a64372 


au4396 


364404 
364406 


a64415 


sadr 


a64415 


a64438 


ıregi 


a64439 
a64442 


a64449 
a64452 


lda 
sta 
sec 
lda 
sbc 
sta 
lda 
she 
sta 
rts 


sec 
lda 
sbc 
sta 
lda 
sbc 
sta 
rts 


#1 
a2035 


*a241 
a2035 
*a24l 
*a242 
#05 


*a159 
*al60 
#0 

+al6h 


dekrementieren 


2 inkrementieren 


se und blo 


a44438 
a64347 
as4173 
364438 
as4354 
*a24l 
*3159 
*a242 


ı #albn 


ter 


an 
a272 


a274 


99% 
a273 


aa7z 
a274 
ar7E 


retten 


---} adresse in zeiger kopieren 

> adresse übernehmen 

nicht vorhanden: -" 

---> 1, adr von 2. adr subtrahieren 
ergebnis 

nach al59,aldöß 


64459 ; stoptaste 


64457 
64459 
64461 
64464 
64466 
64468 


64472 
64472 
64473 
64474 
64475 
64475 
64477 
64478 
64479 
644895 
64481 
64482 
64485 
64487 
544983 
64491 
64493 
64495 
64497 
64499 
64551 
64303 
64505 
64508 
64599 
64511 
at 
64512 
64513 
64514 
64515 
84516 
64517 
54518 
64528 
64523 
6452 

6452 

64528 
64551 
64532 
64535 
64534 
645353 
64536 
64537 
64537 
64537 
645337 
64537 
sa5al 


a64459 


a64472 


354499 
364501 


264511 


a64337 


stx 
jsr 
ldx 
eor 
asl 
lda 
rts 


Id» 
lciy 
ris 


*a250 
3353909 
#a250 
#128 
a 

#0 


azs6.x 


#2188 


aza6,X 
*2199 
*2138 
354497 
*3139 

#0 
{a198) ,y 
asasıi 
asTaFo 


364501 


*a188 
aao,K 
#0 


#1,264768 
#h, 364768 


a“. 


a 


---}> stoptaste dekodieren 


wenn stoptaste gedrückt, 
wird carry gesetzt 


MELDUNG AUSSEREN 


register retten 


rücksprungadresse vom stack holen 


und um 1 erhähen 


ergibt anfang der meldung 


zeichen aus meldung 
endemarke: -> 
---> bscut 


länge der meldung 


zum anfang der meldung addieren 


ergebnis als neue rücksprungadresse 
auf stack legen 


register wiederherstellen 


64568 
64563 
64565 
64568 
64571 
64573 
64574 
64576 
64577 
64581 
64584 
64586 
64588 
64598 
64593 
64595 
64597 
64598 
64598 
641 
64681 
64692 
54684 
64667 
64599 
64618 
64611 
64614 
64615 
64618 
64620 
64623 
64624 
64625 
64626 
64628 
64631 
64633 
646534 
64635 
64635 
64639 
64639 
64639 
64639 
64642 
64643 
64645 
64648 


a64542 


{#3 
*a150 
#0 
a64548 alSid,x 
364548 
*a150 
a6s4s33,H 


a64554 


a64976,% 
#2 
a32775,y 
a64598,y 
a64593 


a64563 


a64565 
332774 


ab4593 
a645534 


E ’ 


a64598 cbm 
a64661 
#3 

alSlöd,x 
a64625 


a64604 


a64635, x 


a6s4976,% 
*a251 
a32768 


a64625 
a64694 
a6497& 
x *a251 


a64635 


a64639 a64976,x 


(al9a) ,y 
364975, 


. 


Pr 


. 


.. 


.. 


modul-zeiger initialisieren 


modul-tabelle löschen 


@, 5, 19, 15 


modul einschalten 
’chm’ 


kennzeichen suchen 


nicht vorhanden: -> 


modul-nummer {basicı ®) 


in tabelle schreiben 


> initialisierung 


modul (x) vorhanden? 
nein: > 


modul einschalten 
schalterkopie 
» initialisierung 


basic einschalten 
schalterkopie 


HMOBUL-ZUGRZFF 


modul (x) einschalten 
vorheriger modul 


auf vorherigen modul zurückschalten 


267 


Seite 
I I 
64649 
646497 364649 pha 
64658 stx #a251 
64652 sta 364976,» 
64655 ldx a1523 
64658 lda al524 
64661 pha 
64662 lda al322 
646653 plp 
64666 jsr a64688 
64669 sta alS22 
64672 php 
64673 pla 
64674 sta 31524 
64677 stx alS23 
646898 pla 
64681 sta #a251 
64683 tax 
64684 sta a64976,x 
64687 rts 
646488 
64688 a64688 jmp (a1520) 
64691 
Ba 
6461 
64691 a64691 pha 
64592 txa 
64593 pha 
64674 tya 
64595 pha 
64696 a64695 sta a64975 
64699 jnp a32736 
64792 
64702 a647a2 1dı *a251 
64704 sta a64976,x 
64797 pla 
64788 tay 
64789 pla 
64718 tax 
64711 pla 
64712 rei 
64713 
BE ———— 
64713 
64713 a64713 1ds #a2Sı 
64715 sta a64976,x 
64718 jimp (a766) 
64721 
De — 
64721 
64721 } bereich 64721...64752 enthält 
64721 
Ba eu 
64721 
64753 a64753 jmp a64713 
64756 
64756 364756 jmp as4sal 
64757 
647539 364759 jmn 364537 


; aktueller modul 
s modul (x) einschalten 


register setzen 


. 


H > routine aufrufen 
register abspeichern 


. 


; alten modul wieder einschalten 


5 


5 > routine aufrufen 


FULS 


basic einschalten 
3 ---> interrupt-routine 


; schalterkopie 
modul wieder einschalten 


. 


ı schalterkopie 
ı modul einschalten 
’ modul aufrufen 


255 


kode 
SPEREUNGELEISTE 1 

3 => modul einschalten und aufrufen 

3 -7-> vorhandene moduln initialisieren 

m) 


H > Ida (al98),y aus dem modul 


Seite 


268 o472 


64762 
64765 
64765 
64768 
64768 
64768 
64768 
64768 
64768 
64768 
65353 


a64762 


a64785 


a65353 


as5336 


365359 


a65362 


; bereich 65365. ..65486 enthält 


a65409 
a65412 
a65415 
a65418 
ab5421 
365424 
a65427 
a65430 
ab5433 
a65436 
365459 
a65442 
a65445 
a65448 
a65451 
a65454 
a65457 


365460 


inp 


jmp 


«by 138 131 


Jmp 


jmp 


364649 


a64696 


347942 


a36393 


a64472 


a62533 


8593374 


a62219 


362290 


a62158 


a62165 


362490 


ab1905 


a60954 


a62503 


a62518 


a56o81 


a62499 


ab0555 


360639 


a61243 


a61219 


a60972 


a660922 


3} => jsr (al52@) in modul (x) 


3 ---> interrupt-routine 


die i/o-adressen 


SPRUNGSLISTE 


rI 


} =—-> key definieren 
3 -—-> print 
3 ==> meldung ausgeben 


3 ——-> monitor call 


kode 255 


KERNAL-SPRUNGLISTE 
3 =--> cint: editor initialisieren 
3 ==> joinit: i/o initialisieren 
} => ramtası ram etc. initialisieren 
---> restor: vektoren wiederherstellen 
} =--> vector: vektoren ändern 
} 07? setmsg: ausgabe ein-/ausschalten 
$ ===> second 
3 > tksa 
} ==> memtop 
;5 => membot 
7-3 scnkey 
I ==> settmo 
ı => acptr 
3 => ciout 
=> unELK 
3 => unlsn 


---> listen 


---> talk 


654653 a65463 jmp a62492 3 => readst 

65456 

65466 a65466 jmp a62483 3 => setlfs 

65469 

65469 a65469 jmp 362476 3 ===> setnam 

65472 x 

65472 a65472 jmp (3792) } ===> open (a61267) 
65475 

65475 a65475 jmp (a794) 3 ===> close (a61921) 
65478 

65478 365478 jmp (3796) } ==> chkin (360696) 
65481 

65481 a65481 jmp (a798) 3 => ckout (a60768) 
6535484 

65484 365484 jmp (aB%0) 3 ---> circh (a61196) 
654897 

65487 a65487 jmp (a862) 3} ==> basin (a60392) 
65498 

65490 a65490 jmp (3894) $ ==> bsout (a60491) 
65493 

65493 a65493 jmp 361507 =? load 

65496 

65496 a65496 jmp 361844 } ===> save 

65499 

65499 a65499 jmp a530537 3} =--> settim 

65592 

65592 a65502 jmp a530Id 3 ---> rdtim 

653595 

65505 a65505 jmp (3806) ı > stop (ab2053) 
63508 

65508 a65508 jmp (3868) 3 --> getin (360377) 
65511 

65511 a65511 jmp (a81®) ; => clall (a61192) 
65514 

65514 a65514 jmp a3297& 3 ---> udtim 

65517 

65517 a65517 jmp a55348 3} ===> screen 

65528 

65520 a65520 jmp a35353 I ——i plot 

65323 

65523 a65523 jmp a64537 3 ---> iobase 

65526 

65526 ab3526 sta a65342 ı rom einschalten 
65329 jmp a62116 3 ---> nmi 

65532 

65532 ‚si a65526 ; start 

65554 “si a64691 ’ puls 
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